DDDDDDDDDDDD EEEEEEEEEEEEEEE BBB8BBBB8BB8B UUU UUU GGGGGGGGGGGG 
DODDDDDDDDDD EEEEEEEEEEEEEEE BBB888BB8BBBB UUU UUU GGGGGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B8BB8BB8BBEB UUU UUU GGGGGGGGGGGG 
DOD | DDD EEE BBB BBB UUU UU G 

DOD DDD EEE BBB BBB UUU UUU GGG 

DDD DDD EEE 888 BBB UUU UUU GGG 

DOD DOD EEE BBB BBB UUU UUU GGG 

DDD DOD EEE 888 BBB UUU UUU GGG 

DOD DDD EEE BBB BBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBBBBBB UUU UUU GGG 

DDD DDD EEEEEEEEEEEE BBBBBBBS8EEBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBSBBBB UUU UUU GGG 

DOD DDD EEE BBB UUU UUU GGG GG6GGGGGGG 
DDD DDD EEE B88 BBB UUU UUU GGG 6G6G6G6GGGG6G 
DOD DDD EEE BBB BBB UUU UUU GGG 666666666 
DDD DDD EEE 888 BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B88B8BB8B888 UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDODDDDDD EEEEEEEEEEEEEEE BBSBBBB8BBBB UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE BB8B8BBBBBBBB UUUUUUUUUUUUUUU GGGGGGGGG 
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DODDDDDD BBBBBBBB GGGGGGGG vv VV AAAAAA LL UU UU EEEEEEEEEE SSSSSSSS 

DDDDDDDD 688888868 GGGGGGGG VV VV AAAAAA LL UU UU EEEEEEEEEE SSSSSSSS 

dD DD 6B BB 6G VV VV AA AA LL UU uu EE $$ 

dD DD 8B BB GG VV VV AA AA LL UU uu EE SS 

DD DD 6B BB GG vv VV AA AA LL UU uu EE $$ 

DD DD 88 BB GG vv V AA AA LL UU EE $s 

DO DOD 68888888 GG VV VV AA AA LL EEEEEEEE SSSSSS 

DD DD 88888888 GG VW VV AA AA LL UU UU EEEEEEEE SSSSSS 

DD DD 6B BB GG GGGGGG VV VV AAAAAAAAAA LL UU uu EE SS 

DD DD 6B BB GG GGGGGG VV VV AAAAAAAAAA LL UU uu EE SS 

dD DD 88 BB GG GG vv VV AA AA LL UU uu EE SS eee 

dD dD 6B BB GG GG vw VV AA AA Lt UU uu EE Ss eeee 
DDDDDDDD BBBBBBBB GGGGGG vV Aa AA LLLLLLLLLL UUUUUUUUUU EEEEEEEEEE SSSSSSSS cece 
DDDDDDDD BBBBBBBS GGGGGG vv AA AA LLLLLLLLLL UUUUUUUUUU EEEEEEEEEE SSSSSSSS eee 

LL HII SSSSSSSS 

LL HI] SSSSSSSS 
LL I] $$ 
LL I] SS 
LL I] SS | 
LL I] $$ 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] $$ 

LL I] $$ 

LL I] SS 

LL I] $$ 

LLLLLLLLLL HII] SSSSSSSS 

LLLLLLLLLL M111 SSSSSSSS 
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i eeeeeeeererrenrererereeereereeeererereeeereeeeeerereeeeneeeereeeeereeeeeeee 
ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


ie THIS SOFTWARE I$ FURNISHED UNDER A LICENSE AND MAY B 
ie ONLY IN ACCORDANCE WITH THE TERMS OF SU - 


' T CE. THI 
:* COPIES THEREOF 4g NOT BE PROVIDED OR OTHERW 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF 
te TRANSFERRED. 

ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:: Conpokat ite. " NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


!® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: VAX-11 DEBUG 

ABSTRACT: 

: Language-Independent Value Descriptor support routines 
ENVIRONMENT: VAX/VMS user mode 

AUTHOR: J. Francis, CREATION DATE: 19-Apr-1982 
MODIFIED BY: 

i 001 wc3 21-Jun-83 

Add support —_ /PACKED and /DATE_TIME 

7 
o 
‘ 
t 
' 
t 
' 
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002 wC3 15-Jul-83 
Fix /DATE TIRE to use DBGSCVT_DX_Dx 
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003 15-Sep-83 
Siac pecsa”  CURRENT_PRIMARY for self-referential records 


004 wc3 22-Sep-85 
Check for variant records that have been optomized away 
but the DST is still around. 
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Table of Contents 


ORWARD ROUTINE 
! Global Routines : 
length, 


ke integer_desc, 
lin vms_desc, 


td 


dbg$print_value_as_integer 


i a a 
i= 4 
oO 


dbg$Sprint_vms_value 
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fill in vms descriptor 

Create value descriptor 

Create VAX/VMS descriptor 

get value of a primary 

Print aggregate value 

Print ye uve from DEBUG descriptor 
Print integer in q ven radix 
Print value from VMS descriptor 
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en 3een138e 93:17:88 — Eokaus. SacSbeavalugs.035; ~ an 

; if , } 
ae 1! INCLUDE FILES 
s 6hUrd 4 1! 
; 7 ! REQUIRE *SRC$:DBGPROLOG'; 
a. 1 | 
; : : EXTERNALS 
; ¢ 1 EXTERNAL 
; 4 1 dbg$gl_current primary, ! Ponter to phe primary being processed 
3 . 2 dbg$gb_radix : VECTORCS, BYTE], ! Radix settings 
3 5 § 1 dbgsgb.langua e : erte. ' Current Language 
3 1 dbg$gv_contro : dbg$control_flags, ! DEBUG status information 
; 8 1 dbg$gl_call_context, : Context for ‘Bound’ values 
3 1 dbg$gl_convert_token, : “'Integerize’’ operator token | 
$ 9 0 1 dbg$gl_dflttyp, ' Default type from ‘’SET TYPE’ 
: 90 a dbg$gw_dfitleng : WORD, ! Length of default data-type 
- § 1 dbg$gl_sign_ flag; ! Print ‘+ before the signed 
; 4 ? : ! variable. 
; (94 5 1 EXTERNAL ROUTINE 
i) Oe § 1 dbg$build_primary_subnode : NOVALUE, ! Add sub-node to primary 
3 38 1 dbg$collect : NOVALUE, ! Sanitize character vectors 
‘ » % dbg$cvt_dx_dx : NOVALUE, ! Convert datatypes by descriptor 
3; 9 1 dbg$enum_pos, ! Convert value->pos for enum type 
; WW 0 1 dbgSenum_succ, ! Find successor of enum type 
; 100 1 4 dbgSenum_val, ' Convert pos->value for enum type 
; 101 g 1 dbg$aet_tempmem, ! Storage space allocator 
: 108 1 dbg$is_Tt_entry, ' Check for CALL entry-mask address 
; 7 4 1 dbg$ins_decode, ! Print an instruction 
3 1046 pp dbgslanguage_ format, } Language override output 
3; 105 0 § 1 dbg$newline : NOVALUE, ! Print buffer contents 
: 106 8 1 dbg$nget_radix, ! Obtain radix 
: 107 8 1 dbg$pr int : NOVALUE, ! Print under FAO format 
; 108 8 9 1 dbg$print_control : NOVALUE, ' Control print format 
3 OP ? 1 dbg$print_identifier, ! Print name of data item 
; 110 1 dbg$print_set value : NOVALUE, ! Print value of set 
.. oe ; 1 dbg$print_symBol_name : NOVALUE, ! Print name from a SYMID 
; b 1 dbg$push_ftempmem, ' Mark current position 
.. 4 1 dbg ztonpaen : NOVALUE, ! Release marked storage 
3; (116 5 1 dbg$save_va : NOVALUE, ' Save value for ZCURVAL 
g 995 § 1 dbg$sta_setcontext : NOVALUE, ! Establish RST context 
3 116 47 1 Goose ta_sympethnane : NOVALUE, ! Get fully-qualified data name 
oP $8 1 dbg$sta_symkind : NOVALUE, ' Get kind of data item 
; #118 49 1 dbg$sta_symname : NOVALUE, ! Get name of data item 
3; «119 39 1 dbg$sta_symsize : NOVALUE, ! Get length of data item 
; 120 ve dbg$sta_symtype : NOVALUE, ' Get type of data item 
3s 1e1 2§ 1 dbg$sta_symvalue : NOVALUE, ' Get address of data item 
= ; 53 1 dbg$sta_typefcode, ' Get FCODE of data item 
-7 28 1 dbg$sta_typ_atomic : NOVALUE ' Get symbol table information 
: 126 . 7 dbg$sta_typ_descr : NOVALUE, ! Get symbol table information 
; 125 2$ 1 dbg$sta_typ_enum : NOVALUE, ! Get symbol table information 
7 § 57 1 dbgssta_typ_record : NOVALUE, ' Get symbol table information 
i. 28 1 dbg$sta_typ_subrng : NOVALUE, ! Get symbol table information 
; 128 59 1 dbg$sta_typ_typedptr : NOVALUE, : Get symbol table information 
: g$sta_variant_value, ! Check value of Variant Ta 

129 60 1 dbg$ T l ' Check val f Variant T 
a 61 1 dbg$sta_variant_select, ! Get variant entry (by tag 
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—_ 1 for$cvt_d_tg., } Conversion routine 
3 1 1 for$cvt_9_tg. S penvers) on routine 
; : ! for$cvt_h_tg; onversion routine 
; 135 1 

<3 89 1 signed dg ype BITVECTOREdbgSk_maximum_dtype+1] PRESET( 
7. 1 dSc$k_dtype_f = 1, 

ee 1 dsc$k_dtype_d = 1, 

; 139 1 dsc$k =dtypeag ei, 

3; 140 71 1 dsc$k_dtype_ = 1, 

; «(141 i 1 dsc$k_dtype_ = 1, 

3 146 oe qs¢$k_dtype_w = 1, 

; 14 7% «4 dsc$k_dtype_l = 1, 

3: «146 7s dsc$k_dtype_q = 1, 

3 «6145 78 1 dsc$k_dtype_o = 1, 

3 4 77 (1 dsc$k_dtype_p = 1, 

3; (14 a 1 dsc$k_dtype_nz ] = 1, 

; re 79 «41 dsc$k_dtype_nl J = 1, 

3 (616 e dscS$k_ ~dtype. =nlo es Fe 

: 150 1 dsc$k_dtype_nr J] = 1, 

3 31 § 1 dsc$k_dtype_nro] = 1, 

.. 3 ¢ 0 1 dsc$k_dtype_sv J = 1 

; 133 f dsc$k-dtype-svu) = 15; 

: 155 1 

; 156 87 1 BIND 

3; 37 0288 1 Format AC = UPLIT BYTE(ZASCIC *:AC'), 

: 158 0289 1 Format_AD = UPLIT BYTE(ZASCIC *!AD"); 
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GLOBAL ROUTINE DBGSDATA_LENGTH (vms_desc : REF dbg$stg_desc) = 
i FUNCTION 


Given a VAS 4 pag vod his routine returns the length in 
bits of the object described by the descriptor. 


in bits of an element of the array. Do not change it to 
return the length of the entire array = things will break. 


1 

1 

j 

1 

1 | 

1! 

: Note = for array descriptors, this routine returns the Length 

13 

1! 
BEGIN 
LOCAL Length; 
! Obtain the Length from the descriptor. We do not yet know whether 

& 


this length is in bits, nibbles, or bytes. 
length = .vms_descldsc$w_length); 


! Decide whether the length is in bits, nibbles, or bytes, based 
} on the dtype. 


if ,vms.descLdscSb_dtype] EQL dstik_bool 
length = .length * 1 
ELSE Ease -vms_desc(dsc$b_dtype] f 20M dbg$k_minimum_dtype TO dbg$k_maximum_dtype OF 


dsc$k_dtype.f ,dsc$k_dtype_f: .dscSk_dtype.d ,dsc$k_dtype_dc 
dsc Sk_dtype-g odsc$k dtype 
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dsc$k_dtype_nu ~d 
dsc$k-dtype_dsc,dsc$k_dtype_bpv.dsc$k_dtype_blv.dsc$k_dtype_adt: ! M002 


length = .length * %8PUNIT; 
Cdsc$k_dtype_vt) : Length = (. length + 2) * ZBPUNIT; 
Cdsc$k_dtype_p) : length = (.length/2 + 1) * 2B8PUNIT; 
Cdsc$k_dtype_tf,dsc$k_dtype_vu,dscSk_dtype_svu] : 0; 
Cdsc$k_dtype_v ,dsc$k_dtype_sv] : if (length EQL 0) AND 
(.vms_descl(dsc$b 4H) gol es¢shclass_a) THEN 
Length = .vms_descldsc 3 


Cdsc$k_dtype_ac) : Length = (1 ¢ 
.(.vms_desc(dsc$a_pointer))<0,8,0>) * ZBPUNIT; 
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l_pos 
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Cdsc$k_dtype_az) : BEGIN 
BIND chrvec = vms_desc(dsc$a_pointer]) : REF VECTOR C,BYTE); 
be es index; 
ndex = 0; 
WHILE .index LEQ 2046 DO 
BEGIN 


= 
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3; 217 4 pa mye ? EQL 0 THEN EXITLOOP; 
: : r nd ex = nd 

; Length = (.index+1) * SBPUNIT; 

: END; 

; § SURMISE OUTRAGE : Length = .length * ZBPUNIT; 

: 2e5 5 : 

; § ; § RETURN .length; 

; 0 END; ! End of ‘dbg$data_length’ 
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- IDENT 

-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
43 41 $1 83 Q0000 P.AAA: .ASCII <3>\!AC\ 3 
44 41 21 03 00004 P.AAB: .ASCII <3>\!AD\ : 


-PSECT DBGSOWN,NOEXE, PIC,2 
1¢ 3F OF CO 00000 SIGNED ahs t 
-BY TE -64, 15, 63, 28 P 


00 00004 “BYTE 0 : 
06 00005 -BYTE 6 : 


FORMAT_AC= P.AAA 


FORMAT “AD= AAB 
N DBGSGL_ voyt ag PR at 
N » 686 GB LANGUAGE 
TRN DBGSGV =EORTRGL DaGS GL_CALL_CONTEXT 
N 


DB 

RN DBGS$GL~ =DFLIT YP: DBGSGW. DFLTLENG 
TRN DBGSGL-s NoFLAG 

EXTRN $BUTLD UBNODE 

EXTRN bacsconLEtt pecstyt DX_OX 

F 


mm 
<< OK OK OK 
—+--1 4 

DBwDwwD 


ENUM_POS, DBGSENOM SUCC 
XTRN tte val qpocscer. TEMPMEM 


RN DBGS$I as! DEcODE DBGSLANGUAGE _F ORMAT 
E, DBGSNGET RADIX 
GSPRINT, OBGSPRINT_CONTROL 
E T_IDENTIFIER 
sEXTRN DBGSPRINT “SET VALUE 
INT ~ SYMBOL” 


ey 
DBGSSTA, SETCONTEXT 
TAPATHNAR 
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181 bytes, Routine Base: DBGSCODE + 0000 


3: Routine Size: 


DBGVALUES pote 1984 02:45:26 AX-11 Bliss-32 V4.0-7 Page 
vOe~000" 1e-8ep-198e 85:17:84 — EoeauG. skcIoBguaL UES. 095. 1 : 
; 4 28 1 GLOBAL ROUTINE DBGSMAKE _SKELETON_DESC(desc_type,data_length) = 
: 231 60 BUILTIN ACTUALCOUNT; 
H ¢ 61 LOCAL 
; 6¢ Jose Length, 
; ¢ 7 result_desc : REF BLOCK C,LONG) FIELD(dbg$dhdr_fields); 
: : o SELECTONE -desc_type OF 
; 3 8 % dbg$k_v.value_desc]: desc_length = ZUPVAL*dbg$k_valdesc_base_size + 16; 
5 26 9 69 (dbg$k_value_desc): BEGIN 
: 24 Q desc_length = Tryst best valdesc_base_size + 16; 
> 24 0371 IF actualcount() GTR 
; 24 0 1 F .data e_Length GTR 16 THEN 
3 re] 0374 . desc_léngt -data_length + ZUPVAL*dbg$k_valdesc_base_size; 
: 266 0375 ‘ 
> 247 Be78 Cdbg$k_primary_descJ: BEGIN 
; 248 037 desc_length = 20; 
; 249 0378 IF actua countt) GTR 1 THEN 
3; <0 0379 desc_length = .desc_length + .data_length; 
Bo tee . 
; 34 0386 COTHERWISE): SIGNAL(); 
: 2¢ 9 a7 TES; 
: 256 0 BS result_desc = ie tr tempmem((. desc Length + (ZUPVAL-1)) / ZUPVAL); 
3 eer 0386 result_desc(dbg$ _lang 2x'FFe 
3; @ 0387 result_desc(dbg$b_dhdr_type ee type: 
: 259 0388 result_desc(dbg$w_dhdr_ “(angth) = = .desc_length; 
g o9 tH RETURN” .result_desc; 
3 262 0391 END; ! End of ‘dbg$make_skeleton_desc’ 
000¢ 000 -ENTRY DBGSMAKE SRELETON_DESC. Save R2,R3 : 
53 06 =A d0 000 MOVL DESC_TYPE, R 3 
00000083 = BF 53 01 000 CMPL R3, #131 : 
1 000 BNEQ : 
52 0 ? OF MOVL #48, DESC_LENGTH : 
12 BRB : 
0000007A = BF ; D1 14 18: CMPL R3, #122 3 
1 is 18 BNEQ : 
52 30 3 1D MOVL #48, DESC_LENGTH : 
01 6¢ 1 CMPB (APS, #1 : 
B 18 BLEQU 4$ 3 
10 08 a ih Bes DATA_LENGTH, #16 : 
52 08 AC 3 "| epee #32, DATA_LENGTH, DESC_LENGTH : 
00000079 8F : p} 28: CMPL = oR3, «#121 ; 
E f BNEQ ; 
52 4 0 MOVL #20, DESC_LENGTH : 


i; 


<9 


DBGVA 16-5 Sep-1984 02:4 AX-11 Blisgs-32 v4. P 0 
|e ae oe ts rik Ce a yo OT age 
01 c 1 ; Cpe (AP), #1 ; 0378 
08 AC cB ‘ ADDL DATA. LENGTH, DESC_LENGTH 3 79 
000000006 a9 FS 49 3$: CALLS gah easton : 03 : 
03 Ag 4 ? 4%: ast ; 03 
— ‘ 1 FB 8 CALLS ee ieee ; . 
A $5 63 MOVB HE (RES ; 38 
6 7 06 MOVW DESC_LENGTH, -tRESULT DESC) : 3 8 
4 0006A RET : 0391 
; Routine Size: 107 bytes, Routine Base: DBGSCODE + 0085 
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GLOBAL ROUTINE socunal eaipeal scotienan : 
i ROUTINE DESCRIPTION 


ven an integer value, this routine builds a value descriptor 
for that integer. 


' 

i 

! 

: 

' INPUTS 

VALUE = The integer value 

i OUTPUTS 

‘ A pointer to the constructed value descriptor is returned. 

} The descriptor is built out of temporary memory. 
BEGIN 
LOCAL 


TEMP_DESC: REF DBGSVALDESC; 
G0 DDR “KIND} =F AHA VALUE DESC); 


A = DSCSK_ 5 1B “ti 
DBG$W_VALUE-L 


ENGTH) = 4; 
DBGSL-VALUE-POINTER] = TEMP DESCCOBGSA_VALUE_ADDRESS); 
pete VALUE. VALUEO) = .VALUE; 


MP _DE 
MP _DE 
MP _DE 
MP _DE 
MP_DE 
MP _DE 
MP _DE 
MP DE 
TURN 
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m e555 

§ 
‘< 
- 
Cc 
wes 

p 
te 
v 
=m 


BNP AR UV HOSS NSAP NO OO Rowe 


POPPOPORONORURTURNID 2 2 
ie 


oO 
FRRRRLKRRRKRRLLKELS 


Ct mt tt ts 4 = 
ZmMmmmmmmmnn 


0000 00000 .ENTRY EMet INTEGER_DESC, Save nothing 
7E 7A BF O9A-00002 MOVZBL 
8B CAF 1 FB 00006 CALLS BGsAAKE SKELETON. DESC 
06 Ad 9602 F BO OOO0A MOVW A 6<TERP D 
14 a0 01080004 &F p 001 MOVL st} ots sf OtTERP DESC) 
18 AO 0 ao : 001 MOVAB MP oes 4 (TEMP_DESC) 
20 Ad 4 AC 9010 MOVL ul 3 CTEM DESC) 
4 0002 RET 


; Routine Size: 35 bytes, Routine Base: DBGSCODE + 0120 


anny 
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; 38 430 } GLOBAL ROUTINE DBGSMAKE_VAL_DESC (desc_ptr,target_type) = 

3 296 1 ! ROUTINE DESCRIPTION 

; 295 § 1! Given a VMS descriptor, this routine builds either a Value Descriptor 
3 38 4 se or a Volatile Value Descriptor around the VMS descriptor. 

; 2 6 1$ In the case where a Value Descriptor is constructed, we need to 

; 298 425 1! extract the value represented by the VMAS descriptor, gnd put 

; 299 § 1} this value inside the Value Descriptor. So, for descriptors 

; 3500 1} represent ng bitfields, this routine is where the actual extraction 
3 Bs 8 ' of the bits takes place. 

3 : ? 1 ! INPUTS 

3 7, } DESC_PTR = Points to a Vax-standard VMS descriptor 

3 5 ; 1! TARGET_TYPE - A constant which can be one of: 

; BS 1! DBGSK_VALUE_DESC or DBGSK_V_VALUE_DESC 

3 4 1 ! OUTPUTS 

; 308 435 1! A Value Descriptor or a Volatile Value Descriptor is constructed 

3 +4 : out of temporary memory. A pointer to this descriptor is returned. 
: 311 438 BEGIN 

§ \§ 439 LOCAL 

3; 351 440 vms_desc : dbg$stg_desc, 

; «514 441 bits,bytes, 

; 15 a4 result_desc : REF dbgSvaldesc; 

3 i 444 '¢ 

3 18 45 ! The first thing we do is to ‘de-reference’ data items of type 

; 1 04, descriptor which is what we get for arrays of dynamic strings. 

3 1 peed ch$move(12,.desc per vas desc); 

3 ; 044 IF .target_type EQ. dbgsk valye desc THEN 

3 : 3630 WHILE vas.descldscs type] EQL dsc$k_dtype_dsc DO 

3 5 26 BUILTIN PROBER; 

; $ 45 LOCAL addr; 

: 454 addr = .vms Soscidecse poin er); 

3 8 455 IF NOT PROBER(ZREF (0), 2ZREF(8),.addr) THEN SIGNAL (dbg$_noaccessr,1,.addr); 
3 9 2$ ch$move(8,.addr.vms_desc); 

; ; tH ae gyns.cesc(dscS6_closs) FROM dsc$k_class_z TO dsc$k_class_ubs 
3 § 59 dsc$k_class_s,dsc$k_class_d,dscS$k_class_vs] : 

: 460 4 BEGIN 

; 61 4 IF .vms_desc(dsc$b_class) EQL dsc$k_class_d 

3 5 66 4 THEN vms_descidsc$b_class] = dsc$k_class_s; 

; 65 4 IF .vms_descldsc$b_dtype) EQL dscS$k_dtype_vt 

; 64 4 THEN vms_descldsc$b_class) = dsc$k_class_vs; 

; 8 65 4 evms_desc(dsc$b_class) EQL dsc$k_class_vs 

: 9 rh & AND .vms_descidsc$b_dtype] EQL dsc $k_dtype_t 

3 0 67 4 THEN vms_descldsc$b_dtype] = dscS$k_dtype_vt; 

; 1 68 4 vms_descCdsc$l_pos)™= 0; 

s ; 18) ; END; 

3 | {4 i aad + class_sd,dsc$k_class_ubs) : 

3 $ 38 4 IF NOT PROBER(ZREF(O) , ZREF (4), seers? THEN SIGNAL (dbg$_noaccessr,1,.addr*8); 
i 34 r ‘ vms_desc(dsc$l_pos) = .(.addr+8)<0,32,0>; 


H 11 
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ES RED : SIGNAL (dbg$_illtype); 


6 
! Obtain the length in bits ont the Length in bytes of the data 
} represented by the VMS descriptor. 


bits = db $data_tength(yms desc); 
bytes = (.bits + -(2BPUNIT-13) / SBPUNIT; 


‘4 

' Allocate either enough space for : Volatile Value Descriptor 

or enough space for a Value Descriptor which contains the value. 
if (.target_type EQL dbg$k_v_value_desc) OR (.bytes GTR 512) 


result_desc = dbg$make_skeleton_desc (dbg$k_v_value_desc) 


OOONA NE wry 


o 


result_desc = dbg$make_skeleton_desc (dbg$k_value_desc,.bytes); 


'¢ 
!' Copy the VMS descriptor into the Value Descriptor. Also fill in 


pos = 0; 
acer = .vms_desc(dsc$a_pointer); 


RALLS3 


64 
5 
ey 
68 
69 
i 44 the kind and fcode fields. 
7% 501 ch$move(12,yms_desc,result gescldbgsa value_vmsdescJ); 
75 308 result_desc(dbg$b_dhdr_kind) = rst$k_data; 
re 3207 result_descldbg$b_dhdr_fcode] = rst$k_type_descr; 
78 0505 '¢ 
79 2208 ! If the target type is a value descriptor then we want to extract 
80 050 ! the value represented by the VMS descriptor and 
3 208 } right-align the result in the value descriptor. 
58 319 if “result desc ldogse_chér_ typed EQL dbg$k_value_desc THEN 
85 21§ BUILTIN PROBER; 
¥] 51 LOCAL oddr .po8; 
44 Gere result desc dbg$l_value_pointer) = result_desc(dbg$a_value_address]; 
89 316 i Compute the byte address by adding (bit_offset/8). 
st 33 Then set the bit offset to (bit_offset mod 8). 
4 319 if -vms_desc(dsc$b_class] EQL dsc$k_class_ubs 
9 520 THEN 
94 521 BEGIN 
95 5 § pos = .(vms_de ¢Cdsc$l_.p0s})<0,5.0>; 
38 3 Z addr = .vms_descldsc$a_pointer) + .(vms_desc(dsc$l_pos])<3,29,1>; 
98 525 ELSE 
; § BEGIN 
5 
355 
530 
531 
0532 


AAAPOPSPOPONININPONNYD 


WANNA FEW LES 


'¢ 
} Check for read access. 


So 
“ 


a 
' 


<o 


eee eee 
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<o 


bytes = (.pos + .bits + 7)/8; 
ae EQ 0 
IF NOT PROBER(ZREF (0) ,bytes,.addr) 


SIGNAL (dbg$_noaccessr,1,.addr); 


' 
! Don't support bit extractions Bigger than 32 bits for now. 
This restriction may be relaxed at a later time. 


if .bits LEQU 32 
THE 
BEGIN 
i Decide whether to do a signed or an unsigned extraction based on 
the dtype. 
SELECTONE .vms_descldsc$b_dtype] OF 
dsc$k_dtype_sv,dscSk_dtype_svu,dsc$k_dtype_b.dsc$k_dtype_w] : 
agragult.desctabgstavelue-pointers s "(. Bédr}<.pds,. its,1>; 
_ -result_desc(dbg$l_value_pointer) = .(.addr)<.pos,.bits,0>; 


+ 
! Since we have performed the bit extraction, the bit offset is 
i now zero. Zero the POS field to reflect this. 


If_.result_desc(dbg$b_value_ class) EQL dsc$k_class_ubs 
THEN result_descldbg$l_vaTue_pos] = 0; 


ELSE 
BEGIN 
'¢ 


The value is longer than 32 bits. 


VN ey Oe tere eS De a ee ee ak no, ah tah ach ach tah tl 
ooo YEW =O ODNAMNE WN 0 OOBNOYL EWN OO ODNOU EW 


PUP PVSIUPUSUSUSVSUSVSUSUSISUSIST SISSIES 


NOOO 


IF .pos EQ: 0 
THEN 


COOCCOOSOOOGOOOOSOGOGGOOOOOOCSOOOCOCOOCOOOOOOOOCOOOS OOOO 


5 

5 

5 

57 

57 '¢ 

37 Copy the bytes. 

37 ch$move(.bytes,.addr,.result_desc(dbg$l_value_pointer)) 
7 ELSE 
7 BEGIN 
7 '¢ 


i we used to disallow this. 
SIGNAL (dbg$_unimplent); 


iNCR i FROM 0 TO (bitge1)/32 DO 
(4,1 + .result_desc dogs} value_pointer]) = 
.(4*,i + .addr)<.pos,32,0>; 


MEW OOOO UE wit 


'¢ 
' Since we have performed the bit extraction, the bit offset is 
i now zero. Zero the POS field to reflect this. 


PUPP APAPA AAAI 


oo 


We ee eee eee we or or Tt ol ot ot ot ot ot ot ot ot ot ot ot ot ot ot et et et et 


SOOO OCOOOOOOoOoOo 


I 


'¢ 

Descriptor. 

RETURN sresult_desc; 
END; 


PAE AAAIUIUIUIV 


RISLSRLE RR GLO 


OFFC 00000 


“wot fa EE 
0000007A 8F 08 
18 02 i 
00 
56 04 
66 08 


00028708 or 
000000006 00 


02 03 ab 
03 ag 
2 


if .result _descl(dbg$b 
THEN result_desc 


2 


SoOoOoooooooooooooooo 
SOOO OCOOOCOoCoOoOoOSoO 


VIN & 
0 0 OOD ON" 9 xP OF 


00-0 79 


=—On——99 
NOPAM 
PVF FWwO 


Bc 18:17:82 


value class] EQL dsc$k_class_ubs 
§$\_value_pos) = 0; 


i We are all done. Return a pointer to the newly constructed 


! end of routine dbg$make_val_desc 


-ENTRY nB,n9, Ai VAL DESC, Save R2,R3,R4,R5,R6,87,= 


TAR 


CMPB. fc, r* 


CALLS #1, LIBSSIGNA\ 
CMPB as DESC+3, #2 


BEQL 
BRW 
PROBER #9,°8 
BNEQ 
PUSHL ADoR 
PUSHL 
PUSHL 
CALL a 
MOVC 
CASEB vag 
WORD ae 
$ 
$ 
6$ 
rs 
6$ 
$$ 
ei 
i 
35 
PUSHL #16 
BRB 1$ 
BNE 
MOVB 


<o 


14$ 
MOVL VMS -) SC+4, ADDR 
» (ADDR) 


7mm 
4 


avon 


@eer CCC CEC CT EMOW 


ees = Hee se ee es es MP 


Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Sse Se Se Se Se Se Ge Se Se Fe Se Se Se Se Se Se Se Se Be Se Se Se Se Se 


CMPB vné _DEST+2, 
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e 1 A BNEQ : 
03 AE B ; MOVB Hi, VMS ESC +3 > 0464 
08 03 AE 108: cHPB va $ *DESC#3, #11 3 0465 
OE 02 AE 9 6 CHB ie _DESC#2, #14 ; 0466 
02 AE 5 } MOVB vMS pESC+2 t 0467. 
08 A bs ; 118: cURL Ws “DESC? : $8 | 
08 Ab 04 b Of 95 12$: PROBER #4, 8(ADDR) + 0473. 
A BNEQ 136 : ! 
08 A6 OF C PUSHAB 8 (ADDR) : 
dD oF PUSHL AR : 
00028228 8F DD OO0Al PUSHL : | 
000000006 00 3 FB A? CALLS a5° wet; SIGNA F ! 
08 AE 08 Ag DO OOOAE 13$:  § MOVL gcA ADDR) ssio DESC+8 : 0474. 
' 11 0008 BRB B + 0450 : 
E 0D 00085 14$: PUSHL SP > 0484, ! 
FEO! cf 1 FB 008 CALLS , DBGSDATA_LENGTH ; 
A 0 pO 0008C MOVL n : | ! 
5B 26 0” 08 CF oboe! Divs wth RO’ BYTES —' 
00000083 =F 08 aC D4 O9¢7 CPL TARGET. “TYPE, #131 : 0491 | 
00000200 8F ary 9001 CMPL BYTES, #512 : | ! 
; 0B 15 00008 BLE Ss : | 
7e 83 8F 9A OO0DA 15$:  MOVZBL HI 1 + 0493 
FESF OCF 1 re 0 DF CALLS becsaaxe _SKELETON_DESC F | : 
B 11 000 BRB 176 : 
7E m o& Sacer 06 6m He Raspes } 
wes $3 UN BRE ora, RAY Bp faanteg peueTon asc peed 
14 A? . 6 ree C H 44 ' : move meV ns DESC 20(RESULT DESC) ; 0501 : 
9 8F 02 al #1 i CPB (RESULT_DESC), ites a310 
56 18 ar 3 198 MOVAB S3enbset tae DESC), R6 : 0514 | 
0D 83 ie $i 100 CPB Vis Rebec ene "3 ; 0519 | 
a 08 AE 03 0 i 113 EXTZV 3. Ms SQDESC+B. P POS : 0522| 
59 08 A FD sO 119 ASHL 5-5, ; 0523 | 
5 04 =A ; 11F ADDL2 15 *pesetee ores : 
9 1 BRB ; 0519. : 
ee ee ee eee Beh) | 
30 07 AAG a5 128 19%: MOV oa ; 05 g ! 
” 9F $$ O01 Bear 208 2 9534 | 
69 58 00 0 001 PROBER BYTES, (ADDR) ; 82 | 
13A BNEQ q § : 
9 DD 0013¢ PUSHL ADDR > 0538. 
1 DD 001 PUSHL #1 : | 
ooovoo00c 09 78228 «BE PR ote atte ene : 
98 A Bf 00140 208:  CMPL aBifs, rs > 0543 


— 
ee 


vue 
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p-1 DEBUG. SRCJDBGVALUES.B32;1 
28 1A 001 BGTRU 24$ ; 
50 02 A an 1 MOVZBL VMS _DESC#2, RO : 0550 
1 001 CMPB CRO, @# : 055 
1f 001 BLSSU 4 : 
07 91 1 CMPB 8? : 
A 8 1 BLEQU 22$ ; 
29 0 ? 160 21$: MPB RO, #41 ; 
F 0016 BLSSu 238 ; 
m 3A 004 Serau 34g 
69 SA FE A 228: EXTV POS, BITS, (ADDR), @0(R6) + 0553. 
69 5A b FF 172 238:  — EXTZV gs. BITS, (ADDR), @0(R6) + 0555. 
17 BRB : 0561, 
et eee ey + 0570. 
00 86 69 38 ¢ 18 is mOVeS YTES, (ADDR), @0(R6) : 0575) 
50 FF OA 9 a te ROVAR =1(R10), RO > 0583. 
50 20 C6 00189 DIVL2 #32, RO : 
51 1 ce 018C MNEGL : 
696) OF S019) 278:  pocHan TADDRICID : 0585. 
96 20 5 EF 00194  —s«EXTZV.—s POS, «#32, a@(SP)+, a0(R6)LI) F 
F 1 F3 00198 288: AOBLEQ RO 1, 278 > 0584 
OD 17 a? 9 00198 9$:  CMPB (RESULT_DESC), #13 : 0591. 
1¢ 3 i? brag an tRESULT DESC) ; 0592, 
50 oF Os Boras 308: abe RESULT_DESC, RO : 0601. 
04 001AB RET : 0602 | 


3; Routine Size: 428 bytes, Routine Base: DBGSCODE + 0143 
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vms_desc(dsc$w_length] = .bit_length(0J/ 
(IF .typecdde EQL dsc$k_dtype_v 
OR .typecode EQL dsc$k_dtype_vu 
OR .typecode EQL dsc$k_dtype_sv 
OR .typecode EQL dsc$k_dtype_svu 
One pecode EQL dsc$k_dtype_tf 


H 
ELSE ZBPUNIT); 


3; 4677 3 1 GLOBAL ROUTINE DBGSFILL_IN_VMS_DESC(fcode,typeid,symid 

; 47 6 4 vms_desc, bit length. bit_offset) = 
: 480 606 1 | ROUTINE DESCRIPTION 

3; 4 6 "BEGIN 

; 4 4 £08 MAP 

; 4 10 symid : REF rst$entry, 

; 485 611 vms_desc : REF dbasstg gees. 

H rey olg bit_length : REF VECTOR [1,LONG), 

; iB ei7 bit_offset : REF VECTOR [1,LONGJ; 

3 rt 4 oi? CASE gyeote FROM rst$k_type_minimum TO rst$k_type_maximum OF 

: 49) be19 rst$k_type_atomic) : 

; 49¢ 0618 BEGIN 

: rh bes LOCAL typecode; 

; 495 0621 i Atomic data t pes - the routine dbg$sta_typ_atomic can be 
3 £36 06 ¢ ! used to obtain the dtype and Length in Bits: Class is set 
3; 49 06 ' to S$ or VS here; it rm later be changed to UBS if there 
: re | oe : is a bit offset present. 

: $500 6 db Ssta_typ_atomic(.typeid,typecode,bit_length(0)); 

; 33 Oe ; i iF. typscode EQL dst$k bool then _ 

: 0 36 3 4 vms_desc dsc#b class) = dsc$k_class_s; 

3; 504 0 4 vms_descldsc$b_dtype] = dsc$k_dtype tf; 

; Os be 1 é yns desc dsc$w_length) = .bit_Tengthf0J; 

: $07 06 5 3 ELSE 

; 508 0634 4 BEGIN 

3; 509 0635 4 vms_desc(dsc$b_dtype] = .typecode; 

; 19 36 : If ~typecode EGL dsc$k_dtype_vt 

; \¢ 063 4 vms_desc(dsc$b_class] = dsc$k_class_vs 

: 51 0639 4 ELS 

: \ bee ? vms_desc(dsc$b_class] = dsc$k_class_s; 

; 16 0642 4 i Length is in bits for the five data types below, and 
: i? Ose ? } bytes for all others. 

: 519 645 4 

3 0 

Be 

: 55% | 

a ; 

: 528 : 

3 9 

3 0 

: aR 


PUPPY DV PVLV LUD DVDVDPVPUDVLDUDVSIVIUPULDVSUSTSVSTSIST SSSI SIT 


OONO WE WO OONOUE WN OOW 


SESSSSSOSSSS SS 


POPPA E & & & 


Crst$k_type pict] : 
BEGIN a 
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ere 
NOs 


wis & 
oo 


RSE A SS ey ne 
NOUEWN "OOO VNOUSwn 0 SO 


ANN NNO 


POPPED DV DV PU DVD PUDPUPUDVDPUDUPVPUDVDVDVDVDELVSIVIVSIUPUSUSVSV SSVI SUSUSIUSUS VSI SUSISISISIS ISIS ISI SISOS SISOS 


oOooooo 

PAA 
CoCe 0000 09 Co“ 
UEWN—OO0 


eooooseesceeoeceeeo ee se COOOCOCOCCOCO 

eSB SSSSSSSSSSSSSSS a o oO $$ 
SSSSSRELLISSSLESLSSLSSSVS P=) 

PEERS PUMA I III I I I I I I roronononononononononnononnnunononu WLI 


ee tt 


One uwn—o 


! Pb! he al data item. This is really an item of Cotentyge 
! dscSk_dtype_t, but we need to retain extra ratoraet on in 
case we want to deposit a numeric value into this 


ett 3 Canty Saas Length(0J); 


tem. 


vms_descidsc$b_class] = dscSk_class_s; 
vms_desc = oc dtype 


dsc$b_dtype : 
aaa dsc$w-length) = .b “rengenCOd/XBPUNIT; 


Crstsk_type record retSk_type ptr .rstSk_type_totr, 
rst$k_type_enum,rstSk type_set.rst$k_type_subrng, 
rst$k type file, rst$k_type_rfal: 


i Non=atomic (i.e., non-VAX standard) data types. For these, 
! we do not attempt to fill in the VMS descriptor. We just 
: fill in the bit length. 


dbg$sta_symsize(.typeid, bit_length(0)); 


For variants, there is nothing to fill in. 
Crst$k_type_variant): 


Crst$k_type_descr] : 
BEGIN = 


i Types described by descriptors. We use the routine dbg$sta_typ_descr 
! to obtain the class, dtype, and length information. 

LOCAL dst_desc : REF dbg$stg desc: 
dbg$sta_typ_descr(.typeid,dst_desc); 


If we got a gyaid assed in to this routine, 
try calling SYMVALUE to get a 

descriptor. If we get one, then use this 

descriptor instead of the one we got back from STA_TYP_DESCR. 


Note - normally, these 2 descriptors will be the same. 
However, for qyneote arrays in PASCAL, the runtime descriptor 
(which we get back when we call SYMVALUE with the symid) is 
correct, but the compile-time descriptor (which is part of 
the typespec) is wrong. This code is a workaround for this 
problem in the PASCAL DST. The same workaround appears 

in DBGPARSER for array descriptors. 


SYMID NEQ 0 


ed ee we me ee tem 


fF. 
HEN 


L 

DESC: VECTOR(3) 
RSTPTR: REF RSTSENTRY, 
VALUE_KIND; 

RSTPTR = 7SYMID; 


12 
NCRSHME ABsASeRt BU. ausadeAtt roe 8 


'eee The scale they are giving us is the negative 
pane of what we expect. 


iF .symid NEQ 0 
THEN 


o 
WAAR 
Wn Oo 0ean 


BEGIN 
WHILE .symid(rst$b_kind] NEQ rst$k_module DO 
d = .symid[rst L_ypscopept? : 
6) GL dbgSk_pli) AND 


POA OMNMMNVMVIVIVIVIUIE SEER LPL LS 


sym 
IF (.symid(rst b. Languag 


PDOAAASAAAAAOO 
“ 


SOOoOoooooooooocooooooooOoooooooooooooooooOooOoOoOoOOSooOoOO 
~~ 


0 DEBUG. SRC JDBGVALUES .832;1 
; 717 & WHILE .RSTPTRCRST$B FAND? NEQ RSTSK_MODULE DO 
H 38 7 8 4 RSTPTR = .RSTPTRCRSTSL_UPSCOPEPTRI; 
: $59 719 4 IF_.RSTPTRCRST$SB_LANGUAGEJ EQL DBGSK_PASCAL 
; 594 720 4 THEN 
; 595 721 pesi 
; 596 7 ¢ DBGSSTA_SETCONTEXT(.SYMID); 
; 597 ? DBGSSTA-SYMVALUE(.SYMID, DESC, VALUE_KIND); 
: 598 7 IF .VALOE_KIND EQL DBG$K_VAL_DESCR 
; 599 725 THEN 
; 600 7 § DST_DESC = .DESCCO); 
; 601 7 4 END; 
; 60 728 END; 
; 60 729 
; 604 730 vms desc(dsc$b_class] = .dst_desc(dsc$b_class]; 
; 605 731 vms_descldsc$b_dtype] = .dst_descldsc$b_dtypeJ; 
; 606 ? é vms_desc(dsc$w length] = .dst_descldsc$w_length); 
; 608 734 '¢ 
; 609 735 ! Fix things up so that dtype VT aiwoye corresponds to class VS. 
; ei? u § ! (This seems to be necessary for PL/I varying strings). 
: 61 738 iF _.vms_descldsc$b_dtype] EQL dsc$k_dtype_vt 
: Big 739 THEN. —s — 
3 oie 4 ? vms_desc(dsc$b_class] = dsc$k_class_vs; 
5 618 , § SELECTONE .vms_desc(dsc$b_class] OF 
3 oi3 4 : dsc$k_class_s,dsc$k_class_d,dsc$k_class_vs] : 0; 
; 620 746 Cdsc$k_class_sd] : 
; 621 747 4 BEGIN , 
3 ose 748 4 vms_desc(dsc$b_digits] = .dst_desc(dsc$b_digits); 
3 $s 749 4 vms_descldsc$b_scale] = gst Wese gece) scale); — 
3 : : g ? ¢ vms_desc(dsc$v_fl_binscale] =~.dst_descldsc$v_fl_binscale); 
; $58 7 § 4 tad 
: 62 g i ; !'ee® Workaround for a problem in the PL/I DST. 
; re 
: 7 $ 4 
; 758 4 
; 759 =«5 
: 760 
§ 761 
; ? § 
; 4 07 -symid(rst$v_oldpliflag 

; 639 765 vms_desc(dsc$b_scale] = - .dst_desc(dsc$b_scale); 

; 640 766 4 ND; 

3; 641 76 END; 

; o66 68 

3; 64 769 Cdsc$k_class_ubs) : 

; oe oy SELES TONE -dst_desc(dsc$b_dtype] OF 

i 64 7? dsc$k_dtype_syu,dsc$k_dtype_vu,dsc$k_dtype_tf): 

3 be? 77 bit of tsettos = ott orrsettos + “Bet Sai elascst_pos): 


FS __, 


Dd BVA YES 
v04-000 


648 


PAAAASASAASCOAO 
PPA 
OOONOULS Ww OVO 


FW" O COON NEW - OVOONOUNS 


QV 
OOOO ODDOODOOOOO NINN 


~o 
“w 


powwow ololololololololeleolelolelolololo) 


OOCoooococoooo 
‘Go Go Co Co Go Oo Co 

— os os os 1 1 O 
AUiEWM—OO 


o 
o 
So 
r= 
PRIDE & CUA IU PRIRIPINIPIPIPUPINI WW B& PUNE B&F PWIA BB EF FINI IIIDOIDVOIW BBB PO 


aerornononononononofnory 


SOONO UNE WOOO 
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14 etsy 95:43: ¢6 DEBUG. SRC JDBGVALUES .832;1 
ype_ubs): 
set(0) = bis of feet lO] + .(.dst_desc+8)<0,16,1>; 
st_desc+10)<0;1,0> 


ff 
-d 
HEN Uns _desc[dsc$b_dtype = dsc$k_dtype_svu 
LSE vms_descldsc$b_dtype] = dsc$k_dtype_vu; 


sanity “pioessais 
TES; * 


COTHERWISE) : 
tes SIGNAL (dbg$_unimpLlent); 


FY, es tencldecdh_styped EQL dsc$k_dtype_bpv 


BEGIN 

vms_desc(dsc$b_class] = dsc$k_class_z; 
vms_descldsc$b_dtype] = dsc$k_dtype_zem; 
vms_descldsc$w_length] = 


gb Sgl_call_context = .dst.desc(dsc$a_frame); 
3 IF .vms_desc(dsc$b_dtype] EQL dsc$k_dtype_blv 
EGIN 
vms_desc(dsc$b_class] = dsc$k_class_2z; 
vms-descldsc$b_dtype) = dsc$k_dtype_zi; 
vms_descldsc$w_length] = 

(dbg$Sins_decode(.vms_desc gscfa_pointer false,false) - 

-vms_descldsc$a_ pointer S; 

GbgSgl_call_content = .dst_desc(dsc$a_frame]; 


pis. Lengthto = dbg$data_length(.vms_desc); 


!' Self relative labels in PL/I (i.e., arrays of labels). 

! The value of one of these is equal to the contents of the 
! memory location plus its own address. In other words, the 
' values actually stored in the label array are offsets to 
the actual place to branch to. 


(rst$k_type_self_rel_lab): 
BEGIN’ - 1a in 


vms_desc qsc$b.closs} = dsc$k_class_2; 
vms_descldsc$b_-dtype) = dsc$k-dtype-zi; 
vms_desc docSe.pe nter) = sve descCdsc$a_pointer] + 
.(.vms_descLdsc$a_pointer JJ 

vms_desc(dsc$w_length] = 

(dbg$ins_decode(.vms_desc qsc$e_pofnter) false,false) - 

. yas desc dsc$a_pointer S; 

pix _tengthtd) = .vms_descldsc$w_length] * 8; 


roe 


-——————— 
DBGVALUES 
wea 

3 f 5 1 

if ? § CINRANGE ,OUTRANGE) : 
; 709 : 1S; 

: 711 RETURN sts$k ; 
449 6 3 EADS stsS$k_success 
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SIGNAL (dbg$_unimplent); 


base -1984 
127308713 


We do not handle any other fcodes. 
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! End of routine ‘dbg$fill_in_vms_desc' 
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AX-11 ett $-32 rt 4 


DEBUG. SRC JDBGVALUES.8 

(R5), #32 
the) 
é ? (RS) 
‘ (R2) 
(Ro, #33 

1$ 

(R4) 
#22, (RS) 
-(SP) 
4¢R2) 
6 DBGSINS DECODE 
4 (RQ), RO, TR2) 
g(r ). DBGSGL_CALL_CONTEXT 
af. DBGSDATA_LENGTH 
R0 @B1T_LENGTH 
33§ 
vats _D SC, R2 
#22, 2¢Re) 
a4(R2), 4(R2) 
-(SP) 
$8" bacs NS_DECODE 
4(R2), RON TRDS 
(R2), RO 
#3, RO, @BIT_LENGTH 
#1, RO 


-—-—_—-_-——_-- 
| 
i 
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voo-000°» 1e-Sep-1986 $8:17:8¢ Etec. smcSoecvalues-oss;1 = 48" 88 


; re 32 ! GLOBAL ROUTINE DBGSMAKE_VMS_DESC (prmdesc,vms_desc) = 

; ig 1 ! FUNCTIONAL DESCRIPTION: 

: at rk 1 This routine constructs ? VAX/VMS descriptor that points to the 

3 7 44 1! value of a symbol (described by a primary symbol descriptor). 

; 720 45 1! It first materializes the address by resolving all array and/or 

s fel rk 1! record component references, and then determines the length and 

a, # § 47 1 } data type. Finally it checks for sub references, > if one is 

3 4 ? re : present updates the length and address fields accordingly. 

: , 5 30 i FORMAL PARAMETERS: 

: 4 ; p826 : prm_desc - A longword containing the address of a primary descriptor 
: 729 0854 1 ' vms_desc - A_longword ema igi the address of a block of at least 
3 g 0 2? : } 12 bytes where a VAX/VMS descriptor will be constructed. 


2 


1 
GVALUES 14-56 1984 02:45: AX-11 Bliss-32 v4.0-74 Pa 7 
Vv “OOO" 12-80-1984 95:99:80 DEBUG. SRC IDBGVALUES. 3.1 9 48) 
3 7 1 !dbgSmake_vms_desc (prm_desc,vms_desc) 
; f ¢ BEGIN 
: 7 6 prm_desc : REF dbgSprimary, 
5 4 vms_desc : REF dbgsstg desc; 
Beet $ ; LOCAL 
; 740 4 adr_kind, 
: 761 5 adr_ptrs : VECTOR (3,LONG], 
; 7% 4] addr _offset, 
; 74 6 bit offset, 
3; 744 re bit_length, 
: 745 § result_desc : BLOCK (12,BYTE), 
; ms 0 data_subnode : REF dbg$prim_node, 
3; 74 71 prim_subnode : REF dbg$prim_node, 
: 748 4 typetd: REF rst$entry, 
3 P88 i s_value; 
: «751 He BUILTIN 
3 Pg 578 PROBER; 
; Ba) 
: gsgl_ current primary = .prm_desc; A 
oe 578 dbg$gl i d 003 
$ P38 set ; It is illegal to call DBGSMAKE_VMS_DESC with a type. 
; 758 eee If .prm_desc(dbg$b_dhdr_kind] EQL rst$k_type 
; 759 Ht THEN 
: 760 884 BEGIN 
; 761 0885 LOCAL 
3 166 tts] name; 
; 76 88 IF .prmdesc(dbg$l_dhdr_symid0) NEQ 0 
; 764 pase THEN 
3; 765 434 4 BEGIN 
3 766 8 4 dbg$sta_symname(.prm_desc(dbg$l_dhdr_symid0), name); 
3; 7 0891 4 SIGNAL Tdbg$_novaltyp, 1, .namey; 
; 768 $95 4 
: 769 8 9 ELSE 
3; 770 94 SIGNAL (dbg$_novalue); 
3 4a 95 ND; 
: 77 39 '¢ 
3; 776 38 ! The first thing we do is fe set the symbol table access context to 
3 775 8 : the correct stack frame (in case of values whose address is given by 
a ' an of feet from an adéress in a register such as FP or AP), and clear 
3 oe 1 ! the initial byte and bit addresses and descriptor fields. 
; 77 308 db Sata setcontext(.pra_desc(dbgSt dhdr_syaid0)); 
; 780 0904 bi orf t= pat arengen = 0; 
3; «(781 0905 ch$Till(0,12,result_desc); 


aco l 


‘= 
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1 ~3007 1383 96:43:66 DEBUG. cRESDBG TAL UES 03951 | oe 49 
: Love for all except the Last sub-node in the primary descriptor, 
' building up the address of the element within the s rug ture 
! This address is represented by a byte addr tored in the 


ess, 
; dscte poin er field of result desc, and a bit offset. stored 
' (for flow) in the local variable bit_offset. 


; N.8. This MUST be done ‘top-down’ to deal with POINTER data-types. 


Sas 


WAAR AA AAIRITORUNININNUUN & SS 3 
—OOw mewn 


791 prim_subnode = -prm_descfdbg$| prin fl ink : 

79 data subnode = .prm_descldbg$l_prim_blinkJ; 

193 WHILE  -0F Im_subnode NEQA .data_subnode D0 

oe result_desc(dsc$a_pointer] = ,result_desc(dsc$a_pointer] + .prim_subnodeldbg$l_pnode_reloc]; 
139 i Get the address of this element by calling Gogsete, syevelue. 

798 ! This should return either the address of a data item (offset 

799 ! from the start of the record, if this is a record component) 

B01 } or the address of a descriptor. Anything else is an error. 

0 0 


if (.prim_subnode[dbg§\_pnode_synid] NEQ 0) AND 
o0t Orin _oygnete dbg$v_pnode_ ignore) 


GIN 
dbg$sta_symvalue(.prim_subnode(dbg$l_pnode_symid),adr_ptrs,adr_kind); 
SELECTONE -adr_kind OF ined y p 


E 
th $k_val_addr): 
SBECIN > 


9 ODNOVUES WIN (“OOS NOUE WO 


[=] 
DOOOOOOOOOOODOOODOOOOODO00O00O 


10 
Bit result_desc(dsc$a_pointer] = .result_desc(dsc$a_pointer] + .adr_ptrs(0); 
\¢ bit_offset = .bit_offset * .adr_ptrsf1J; 
14 09 Cdbg$k_val_descr): 
15 09 BEGIN 
1 9 BIND ode donc = adr_ptrs(0) : REF dbgsstg. esc; 
: result_desc(dsc$a_pointer] = .result_desc dsc$a_pointer] + .adr_desc(dsc$a_pointer]; 
1 Cdbg$k val_unalloc): 
BEGIN 
LOCAL name; 


dbg$sta_symname(.prim_subnode(dbg$l_pnode_symid],name) ; 
$1 GNAL (aby Pin 


bg$_unallocated, 1, .name); 


N . 
COTHERWISE): 
SIGNAL (dbg$_novalue); 


~o 
= 
So 
BE HK ENIMNS FNS SNM LLL SE 


@OnNOUS WOO 


S$; 
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eagee713Be 98:93:88 = ANSNE Sbigeese vee0-246 
SELECT -prim_subnode(dbg$b_pnode_fcode] OF 
rst$k_type_array): 
i 1 this is an array (of eee rds or pointers, presunedty). 
get the address of an individual element of the array. 


BIND pnsub = prim_subnodeldbg$a_pnarr_svector]_: dbg$prim_node_subs: 
addr_offset aorta guanotet ioedt anafe sitectli tg 


Loop through the dimensions of the array. 
DECR index FROM .prim_subnode(dbg$b_pnarr_dimcntJ-1 TO 0 DO 


S_value = spnsupt , index dbgst proud svaluel; 
typeid = .pnsubl.index,dbg$l_pnsub_typeid); 

! If the array is indexed by an enumeration type, 
' then index y the position and not by 

! the value. This cases arises only in ADA for 
enumerated types with representation specs. 


IF (.dbg$gb_ language EQL dbg$k_ada) AND 
Ctypeld7NEO"0) > 9 


Hen tvecteteatse, tcode) EQL rst$k_type_enum) 
s.value = dbg$enum_pos(.typeid,.s_value); 


wy tetyty tvty ty tytrs % > 4 
MAMI & Fd 


ted 


WN —OODNAOULS WN “OOOO 


peer nitent = .addr_offset + (.s_value*.pnsubl.index,dbg$l_pnsub_stride]); 


IF i subnode(dbg$v_pnarr_bitref) 
THEN bit_offset = .bTt_offset + .addr_offset 
ELSE result_desc(dsc$a_pointer] = .result_desc(dsc$a_pointer] + .addr_offset; 


Crst$k_type_ptr.rst$k_type_tptr): 
BEGIN’ =P ype_tp 
BUILTIN PROBER; 

LOCAL addr; 


6 
86 


te 
Check for read access before trying to fetch a value. 
addr = .result desc ds¢ Sa pointer] + .bit_offset<3,29,1>; 


99 
338 IF NOT PROBER(ZREF (0) ,ZREF(S), addr) 
1, THEN SIGNAL (dbg$_noaccessr,{,.addr); 
ies If this is a POINTER, fetch a longword value 
1 5 result doocdacSa_potater: = .(.addr)<.bit_offset,32,0>; 
1004 it_offset = 0; 
: 5 H 
1 (rst$k_type_record): 
1008 eo 


Paar 185 
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Crotte tyge.ver tent): 
IF Becihy mosumnodelabgtu pnver_val td) THEN 


Lov tag_value, ag.size.tag ne : REF VECTOREC BYTE); 
or m_subnodeldbg$v_pnvar_valid] = frues 
F «Brim ssubnode dBg$l_pavar_tagid) NEQ 0 THEN 
BUILTIN PROBER; ! ad 
abg eta_syengnet pr in_supnodel est .pnver _toeid ,tag_name); 
dbg$sta_symsize(.prim_subnodeldbg$l pyres tagid tag_size); 
if (tag size NEQ 0) AND (.tag_mamef0) NEO 0) THEN 


SSLSARANLESSS 


dbg$sta_symvalue(.prim node(dbg$l_pnvar_tagid],adr_ptrs,adr_kind); 

901 adr _ptrsth) = -adioptrst} + eresult-descldseta pointer): 
206 adr_ptrsl1] = .adr_ptrs(1] + .bit_offset; 
904 '+¢ 
905 Check that the address is accessable 
$07 iF NOT PROBER( ZREF(O), SREF(4), .adr_ptrs(0) ) + AD 
908 SIGNAL (dbg$_noaccessr,1,.adr_ptrs(0)); i ad 
911 tag value = .(.adr_ptrs(0J)<.adr_ptrs(1),.tag_size,0>; 
gig IF NOT dbgSsta vartant value(, tag value, .prim_subnodeldbgSi_pnvar_dstptrd) 
313 Jit SIGNAL (dbg$_badfagval,2,.tag_value,tag_name(0)); 
915 0 END; 
916 0 END; 
917 0 
918 0 CrstSk_type_file]: 
919 04 
920 
3 
958 

4 

5 


ee ee ee ee ee ee ee ee ee ee ee 
PEPE EEE EEE EEE EEE EEE EEE EFF MANAE NAAAAAAAAAAAAAA AMINE & FP 


1 
ong BUILTIN PROBER; 
a fr: 3 

043 LOCAL add REF BITVECTORCI 

045 ' for file types what we have in the vms descriptor is a 
9 B66 : pointer to a PASCAL file descriptor, Bit 16 in the 
9 04 ! second longword of this descriptor is a ‘valid’ bit which 
G $ 8 ! basically says whether the file is open. If bit 16 is set 
9 4 ! then the first longword of the descriptor is a pointer 
928 50 ' to a buffer from which we can read the next item 
2 9 O34 } n the file. 
931 5 '¢ 
9 § Bae ! Note in the calculations below, bit_offset will normally 
9 55 ! be zero. It might concetvably be non-zero in obscure cases, 
9 2$ ' such as a file variable which is an element of a packed 
3 5 2 } record. 
3 35 i3 
3 ’ Check for read access. 
940 § addr = .result Gere dsc$a_pointer] + .bit_offset<3,29,1>; 
941 bit_offset = .Bit_offset<0 >; 
94¢ 64 IF ROT PROBER(ZREF( ) BREF (BS, addr) THEN SIGNAL (dbg$_illfilptr); 

'¢ 


iScBeoct9ge OB:45:26  yaNedy OLigse32 v4nte7eg | Page, 


; ¢ } : Check ‘valid’ bit. 

; § 1 8 2 iF NOT .addr([48+.bit_offset] THEN SIGNAL (dbg$_illfilptr); 
; oc8 : y $ Put the buffer address back into result_desc. 

; 950 1 fs 4 result descLdsc$a_pointer] = .(.addr)<.bit_offset,32,0>; 
; 4 : y? 4 toffset = 0; 

; 9 1075 F 

; 9546 107 COTHERWISE): 

; 3 5 ; SIGNAL (dbg$_illtype); 

; 357 1079 TES; 

; 958 1080 prim_subnode = .prim_subnode(dbg$l_pnode_flink); 

; 959 1081 ND; 


C8 NIA MASAO OOONOA UME 


SS 


3 
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' We now have et 9 ot 8 all earlier cocere component and arcey references, 
! and have to determine the actual data item address. The first thing to 
do is to calculate the base address (much as we did above). 


iF (.data_subnode[dbg$l_pnode_symid] NEQ 0) AND 
NOT .data_subnodeldbg$v_pnode_ ignore] 
THEN BEGIN 
sbazete symvalue(.data_subnode([dbg$l_pnode_symidJ,adr_ptrs.,adr_kind); 
SE EC TORE -adr_kind OF 
Pabgsk val_addrj: 
BEGIN 


result_desc(dsc$a_po 
bit offset = .bit_of 


Ldbg$k_val_descr): 
SBECIN 


BIND adr_desc = adr_ptrs(0) : REF dbg$stg_d 
result_desc{dsc$a_pointer] = .result_descldsc$ 


END; 
Cdbg$k_val_literal): 
BEG] 


result_desc(dsc$a_pointer] = .adr_ptrs(0J; 
bit_offset = .adr_ptrs(1); 


inter] = .result Gyettdecta,potaror’ + .adr_ptrs(0); 
fset + .adr_ptrsf1); 


esc; 
a_pointer] + .adr_desc(dsc$a_pointer); 


Cdbg$k yet wnettocds 

BEGIN 

LOCAL name; 

Poasete symname(.data_subnode(dbg$l_pnode_symid],name); 
SEGNAL (abgS_unal Locatéd, 1, .name); 


COTHERWISE): 
Tes SIGNAL (dbg$_novalue); 


oo 


13 
-S$ep-1984 45:26 AX-11 Bliss-32 V4.0-74 Page 33 
vOewoOo 18-Se0-1984 95:99 388 DEBUG. SRC IDBGVALUES -B3 31 (14) 
: 1800 1130 i wevin determined the address of the data object, we now attempt to | 
+ 1001 1121 ' fill ta the rest of the fields in the VMS descriptor (class, dtype, 
: 100 11 ! and length). We use the information that we have in the bottom subnode: 
; 1908 11 : } a kind, an fcode, and a typeid. 
: 1008 i" ¢ CASE .data_subnode(dbg$b_pnode_kind] FROM rst$k_kind_minimum TO rst$k_kind_maximum OF 
31 1 SET 
; 190% 1 Crst$k routine, rst$k_block, rst$k_entry,rstSk_line,rst$k_labelJ: 
; 1009 ) 4 BEGIN 
: 101s 1131 i Special case for MACRO = since MACRO declares everything to 
+ 101 11 ' be a label, then we want to instead use the default type 
: 191 1138 i that has been specified with a SET TYPE command. 
1014 1134 le 
: F (,.data_subnode(dbg$b_pnode_kind] EQL rst$k_label) 
: 191 1136 d AND (.prm_desc dbg$b ddr Lang] EQL dbg$k_macro) 
Bite 38 AND (db gormagt sc dbaby-Gnde overrides} ! If instruction, the we 
: 1919 1139 4 Oe Leese ss ath gat i already have correct type 
; 1020 1140 4 i and Length 
> 1021 W413 THEN GIN 
: 1998 1148 4 result_desc(dsc$b_class] = dsc$k_class_z; 
g 10st i148 4 real e-Sessheectarlakerh) © asbbbeilitinas | Atl dpteul® tees 
sc$w =. * 3 t 
: 1998 1148 4 bit length = Bs .dbg$gu. dtltleng; ! have length in bytes. 
: 1027 1147 4 END 
: 1028 1148 4 
3; 1029 1149 3 ELSE 
; 1050 1120 : BEGIN 
: 1932 118 4 i This must be a primary representing an instruction or an entry 
: 1088 1183 4 } mask in the user program. 
: 1936 1186 d If .bit_offset NEQ 0 THEN SIGNAL (dbg$_unimplent); 
3 1036 1156 4 result descCdsc$b_class] = dsc$k_class_z; 
: 1037 1157 4 IF dbgSis_it_entry(.result_descldsc$a_pointer)) 
> 1038 1158 4 THEN 
: BEGIN 
; 1940 1180 3 result_desc(dsc$b_dtype] = dsc$k_dtype_zem; 
> 1061 1161 5 bit_length = 16; 
: 94 1336 5 END 
: 19a 1184 3 BEGIN 
3 1045 1165 5 result_descldsc$b dtype) = dsc$k_dtype_zi; ‘ 
; = NIT*(dbg$ins_decode(.Fesult_desc(dsc$a_pointer), false, false) 
; 1949 1169 § a eres -result_desc poet hy od need |b 
> 1048 1168 4 END; 
3: 1049 119? END; 
; 1930 1309 END; 
: 198 1178 Crst$k_data,rst$k_typcomp): 
; 1088 BA BEGIN 
: 1985 1175 i The Primary represents data in the user program. Note that 


OS a —_——__— 


—— 
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; 105 117 ! record components come back with kind=typcomp (this is a quirk 
; 1987 7? in the parsing that may eventually be ftxeg). ’ 
: 1059 1199 if -data_subnode(dbg$b_pnode_fcode] EQL rst$k_type_array 
: 1060 1180 THEN 
; 1061 1181 4 BEGIN 
3 1906 11 ¢ 4 BIND pnsub = data yen eye prere ,overter2 : dbg$prim_node_subs; 
; 13S? ts ? addr_offset = .data_subnode(dbg$l_pnarr_offset; 
: 1065 1185 4 { Loop through the dimensions of the array. 
; 1067 1187 4 DECR index FROM .data_subnode(dbg$b_pnarr_dimcnt)-1 TO 0 DO 
; 1068 1188 5 BEGIN 
: 1069 1189 § s_value = .pnsu C index .dbgSt _pnsub svalue); 
; 1979 1130 é typeid = .pnsubLl.index,dbg$l_Onsub_ftypeidd; 
: 107¢ 119¢ 5 ' If the array is indexed by an enumeration type, 
3; 107 1193 5 ! then index the position and not b 
3 1074 1194 5 ! the value. This cases arises only in ADA for 
3 i Bb 2 enumerated types with representation specs. 
: 1077 1197 § if (.dbg$gb_ Language EQL dbg$k_ada) AND 
: 1078 1198 3 (.typeid NEQ 0) 
3; 1079 1199 HEN 
; 1080 1200 g IF (.typeid(rst$b_fcode] EQL rst$k_type_enum) 
: 1081 1201 THEN 
; 1086 1506 : s_value = dbg$enum_pos(.typeid,.s_value); 
: 1084 1204 5 addr_offset = .addr_offset + (.s_value*.pnsubl.index,dbg$l_pnsub_stride]); 
; 1085 1205 4 END; 
; 1086 1606 4 
: 1087 1207 4 IF .data_subnode(dbg$v_pnarr_bitref] 
: 1088 1208 4 THEN bit_offset = .bit_offSet + .addr_offset 
; 's-34 1599 : ELSE result_desc(dsc$a_pointer] = .reSult_descldsc$a_pointer] + .addr_offset; 
; 1091 1211 4 1+ 
; 95 4 iste 4 ! Figure out the class field. This class may get fixed up later - 
3; 109 $1 4 ! we want class=ubs to reflect the fact that there is a bit 
3: 1094 1214 4 ! offset present. But for now, we just fill in class VE for 
3; 1095 1612 4 ! dtype vt, class SD if digits or scale are present, and 
3 1398 ; 1g ? } class s for all other dtypes. 
; 1098 1218 4 iF .data_subnode(dbg$b_pnarr_dtype) EQL dsc$k_dtype_vt 
3; 1099 1219 4 THE 
3 y's : $9 ? result_desc(dsc$b_class] = dsc$k_class_vs 
: 1108 1 j 5 EGIN 
3; 110 1 5 IF p= Gote_ subnodes dete onorr digits) NEQ 0) OR 
3 1106 1224 g (,.data_subnode(dbg$b_pnarr_scale] NEQ 0) 
3; 1105 1225 THEN 
3: 1106 1 $ 6 BEGIN 
3 1107 1 6 result_desc(dsc$b_class]_ = dsc$k_class_sd; 
; 1108 1228 6 result_descldsc$b_digits] = .data_subnode dbosb pare digits): 
3 119% ’ , 6 result_descldsc$b_scale] = .data_subnode(dbg$b_pnarr_scale); 
51111 1231 
3 1112 1232 : result_des:Cdsc$b_class] = dsc$k_class_s; 
| 
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END; 
! FILL in dtype and Length. For arrays, we have this information 


} in the array subnode. 


result desc(dsc$b_dtyped = -data_subnode[dbg$b_pnarr_dtype); 
result desc dsc$w_length] = .data_subnode dbg$w_pnarr_length; 


Fix up boolean to use the new type code dsc$k_dtype_tf. 
If result descldsc$b_dtypel EQL dst$k_bool 
EGIN 
result_desc(dsc$b_class] = dsc$k_class_s; ! This will get 


! changed to UBS 
' if there is a 


! bit offset 
result desc) decid. stype? = dscSh_dtype.tt; 
result_desc(dsc$w_length] = bit_length = 1; 

ELS 

en bit_length = dbg$data_length(result_desc); 
ELSE ; 

'¢ 


i For ever thing except arrays, we call a routine to fill 
! in the fields of the VMS descriptor, passing to this 
} routine all the information we have collected so far. 


SaGO TIAN. tevin _Poee (. Gate_subnedes doesh_pnede. teaee! 

-data_subnode dbgs\_pnode rypeidd, 

-prm_desc(dbg$l_dhdr_symid0J, 
result_desc,bit_length, bit_offset); 
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'¢ 
! Fix things up so class VS always has dtype VT. Class VS and 
! type T is the older _ of expressing varying string data 
type, so we fix it up to use the newer dtype VT. 
if .result_desc(dsc$b_class) EQL dsc$k_class_vs 
AND .result_desc 7 dtype ae dsc$k_dtype_t 

THEN result_desc(dscSb_dtype] = dsc$k_dtype_vt; 


14 
} We should not see other kinds. 


CINRANGE , OUTRANGE): 
oe SIGNAL (dbg$_unimpLent); 


Dereference descriptors of type DSC. 
if result descLdsc$b_dtype] EQL dsc$k_dtype_dsc 


BEGIN 
cee” PROBER(ZREF (0) ,2REF(8),.result_desc(dsc$a_pointer]) 


SIGNAL (dbg$_noaccessr,1,.result_desc(dsc$a_pointer]); 
ch$move(.result desctdsc$u_(ength 


a -result_desc dsc$a~pointerd, result_desc); 


Dereference descriptors of type BPV or BLV. 

if j-resul tdesch decd. dtype) EQL dsc$k_dtype_blv) OR 
(.result_descldsc$b_dtype] EQL dsc$k_dtype_bpv) 

= BEGIN 
con PROBER(ZREF (0) ,ZREF (8), .result_desc(dsc$a_pointer]) 

SIGNAL (dbg$_noaccessr,1,.result_desc(dsc$a_pointer)); 

result_descldsc$a_pointer) = ..result_descldsc$a_pointerd; 
{Ff gredultdescldscSh_dtype) EQL dsc$k_dtype_blv 


result_desc(dsc$b_dtype] = dsc$k_dtype_zi; 
if result _desc dsc$b-dtype] EQL dscSk_dtype_bpv 


HEN 
result_desc(dsc$b_dtype] = dsc$k_dtype_zem; 


result_desc(dsc$a_pointer) = 
-result_desc(dsc$a_pointer] + .data_subnode[dbg$l_pnode_reloc); 
“w 


<o 
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IF Bee uesc(dbg$v_dhdr_subref] THEN 
BEGIN 


i If there was an offset in the Primary (either a bit offset or 
} a byte offset) then take care of that here. 


IF .prm desc(dbg$v_dhdr_bitref) 
THEN 


BEGIN 

bit_offset = .prm_desc(dbg$w_prim_offset] + .bit_offset; 

bit_length = .prm_descldbg$w_prim_lengthJ; 

result_desc(dsc$b_class] = dsc$k_class_z; ! These get fixed up 

result _descldsc$b_dtype] = dsc$k_dtype_z; ! below. 

result _descldsc$w senat® = 0; 

IF (.bTt offset AND (ZBPUNIT-1)) EQL 0 THEN 
SELECTONE -bit_length OF 


C 8): 
result_desc(dsc$b ésyoes = (IF -prn.dooc (ebesy andr spent] 
: THEN dscSk_dtype_b ELSE dsc$k_dtype_bu); 
result_descldsc$b Geyoe) = (IF .prmdesc(dbg$v_dhdr_sgnext] 
THEN dsc$k_dtype_w ELSE dsc$k_dtype_wu); 


(32): 
result_desc(dsc$b dsyoe) = (IF -pre_gose(ébgty.dndr spnent 
THEN dsc$k_dtype_l ELSE dsc$k_dtype_[u); 


var Manin 


TES; 
END 


ELSE 
N 
Fagg Omutt soncldectn_sype) EQL dsc$k_dtype_vt 


EGIN 
result_desc gece closed = dsc$k_class_s; 
result_desc gsc $0. Ot ype = dsc$k dtype ti 

result_desc(dsc$a_pointer] = .result_descldsc$a_pointer] + 2; 


END; 
esult_desc(dsc$a_pointer] = sorn_desc desu fhe offset] + .result_desc(dsc$a_pointer); 
it_lefgth = .prm_desc(dbg$w_prim_length) * ZBPUNTT; 


+ 
For the string dats types (which include ascii and also the 

numeric string types NU, Ni, NLO, NR, NRO, and NZ), fill 

in the Length of the result descriptor, but leave the class 

and dt ype unchanged. Note that the code below relies on the 

fact that these dtype codes span the range from 14 (dsc$k_dtype_t) 
: to 20 (dsc$k_dtype_nz). 


if (.result_desc dsc$b_dtype] GEQ dsc$k_dtype_t) AND 
cen eet eens dsc$b_dtype) LEQ dsc$k_dtype_nz) 


r 
b 
' 
i 
; 
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g Soult _doscidectu_longens = .prm_desc(dbg$w_prim_length] 


END; 
END; 


result_desc(dsc$b_class]) = dscSk_class_z; 
result_descldsc$b_dtype s goes dtype_z; 
cesult.. “descldsc$w_length) = 


! (0) 
! (0) 
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i If the Length is not expressible in bytes then change the dtype 
} to V and fill in the Length field wit 


result_desc(dsc$b_dtype) = dsc$k_dtype_v: 
If bit Length USSU YET Too0g tok -ot7Pe 


BEGIN 
result_desc qscBy_tengthd = ,bit_length; 
result_descldsc$l_pos = 6; 


a bit length. 


oO 
NU SONNE WOODS 


3 3 1385 ¢ 
3 1 6 1 § : At this point, if the bit_offset variable is not a multiple of ’ then i 
; 1270 1 i there really is a bit offset. Fix up the class field to be UBS in i 
3 : f} : 3 ! this case. ‘ 
3: 127 1390 IF (.bit offset AND (%BPUNIT-1)) NEQ 0 THEN i 
3 ; a } 4! BEGIA ‘ 
3 '¢ ‘ 
3: 127 1 38 ! We used to not sup ors unaligned bit fields longer than 32 bits. ‘ 
3 : A : iy } IF .bit length GTRU 32 THEN SIGNAL (dbg$_unimplent); : 
3 1279 139 result_desc(dsc$b_class] = gecSk.class_uds; 
3; 1280 139 IF_.result_descldsc$b_dtype] EQL dsc$k dtype_z i 
; : 3) : 98 ., THEN result_desc(dsc$b_dtype] = dsc$k_dtype_vu; i 
3 7 Hi 1400 : Bit Length is in bits for these five data types, and in bytes ; 
3 : Be et for all others. ; 
3 1 Hs 1208 result_desc(dsc$w_length] = .bit hongeh / F 
; 128 1404 4 -result_desc(dsc$b_dtype] EQL dsc$k_dtype_vu i 
: 1288 1405 4 OR .result_descldsc$b_dtype] EQL dsc$k_dtype_v ; 
3; 1289 1406 4 OR .result_descldsc$b_dtype] EQL dsc$k_dtype_svu : 
: 1290 1407 4 OR .result_descldsc$b_dtype] EQL dsc$k_dtype_sv 3 
3: 1291 1408 4 OR .result descldsc$b_dtype] EQL dsc$k_dtype_tf 3 
3 (1 3 1409 THEN 1 ELSE 8); ‘ 
; 129 1410 result_descldsc$l_pos] = .bit_offset; : 
: 1296 1411 : 
3: 1295 1i¢ ELSE : 
ie A pec : 
3 '¢ Ps 
3; 1298 1415 : If we get here then we have byte-aligned data. : 
; 1299 1018 ! Fix up the pointer field to point to the byte where the data 3 
3 ! ‘st ete data actually begins. ‘ 
3; 1 ‘ 1419 rpeyit Soscldecte pointer) =_.result_desc(dsc$a_pointer] + (.bit_offset/%BPUNIT); : 
: 130 1420 4 IF (.result_descldsc€b class) EQL dsc$k_class_z j 
3 1304 1421 3 THEN : 
3; 1305 14 3 4 BEGIN 3 
3 3 14 5 IF ((.bit_lensth Ald (ZBPUNIT-1)) EQL 0) ; 
3 3 1424 4 THEN : 
3; 15 1425 4 '¢ 3 
3 1 14 $ 4 ! if the cength of the data is exactly a multiple of 8 then 3 
; : 2 leave the dtype Z and express the length in bytes. 3 
3 1% 14 5 4 result_desc(dsc$w_length] = .bit_length/%BPUNIT : 
3 1 1430 4 ELSE 3 
3 1 1431 BEGIN 3 
3; 3 14 ; '¢ : 
s 3 14 B 
s 1 1434 $ 
3 1 1435 : 
3 1 V4 § : 
3 3 16 : 
3 7 14 3 : 
3 1 14 6 3 
3 1 1440 6 3 
: 1 1441 6 3 
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1325 144 END 
1 8 1208 é ELSE 
HE en 
1 1446 6 ! Special handling for the case where the Length does 
: : 146? 6 } not fit in the Sere field. Se 
1 ; 1209 4 result .gesch dscBy. Length) = 0; 
: 129 3 fesult desc dsc$l_pos] = .bit_length; 
1335 1452 4 END; 
1638 eno, 
1338 1455 
: | 1628 ch$move(12,result_desc,.vms_desc); 
1341 1458 RETURN sts$k_success; 
1 ¢ 1459 
1 1460 1 END; ! End of routine dbg$make_vms_desc 
OFFC 00000 «ENTRY DBGSMAKE_VMS_DESC, Save R2,R3,R4,R5,R6,R7,- ; 0839 
R8,R9,RIO,RIT é 
58 000000006 90 H 90002 MOV LIBSSIGNAL, R11 ; 
af 8 C2 0000 SUBL #56, SP é 
5 046 aC 00 0000C MOVL PRM_DESC, R7 ; 0878 
000000006 00 57 00 9019 MOVL  R7,~DBGSGL_CURRENT_PRIMARY : 
5A 04 A7 9E 0001 MOVAB 4(R7), R1 : 0882 
07 03 AA 91 90018 CMPB Ss «3(R105, # : 
29 12 OOO01F BNEQ es ; 
0c A7 05 00021 TSTL 12(R7) 3; 0887 
1B #1 0024 BEQL 1$ - 
ss DD 000 $ PUSHL SP ; 0890. 
0C A? DD 000 PUSHL age : 
00000000G 00 02 FB 000 8 CALLS #2, DBGSSTA_SYMNAME 3 
6E DD 000 PUSHL NAME ; 0891 
1 OO 8 SHL 1 3 
00028168 F DD 00 PUSHL #164200 3 
3 fe 003¢ CALLS #3, LIBSSIGNAL 3 
9 1 O35F BRB ; 0887 
000287F8 F OD } 1$: PUSHL #165880 : 0894 
68 1 FB 4 CALLS #1 {OSS IGNAL : 
OC AZ DD 0004A 28: PUSHL 12¢R?) : 0903 
000000006 00 01 FB 4D CALLS #1, DBGSSTA_SETCONTEXT 3 
18 AE 7C 00054 CLRO Bit OFFSET : 0904 
0c 00 6E 0 2c ; MOVCS #0, (SP), #0, #12, RESULT_DESC ; 0905 
53 70 A 1) MOVL O(R7), PRIM_SUBNODE 3; 0914 
2 18 a7? 00 0006 MOVL 4(R7), DATA_SUBNODE 3; 0915 
6 5 38: CMPL PRIM_SUBNODE, DATA_SUBNODE 3 0916 
ott I at | 
24 ag 14 A ce , 4$: ADDL2 ; (PRIM_SUBNODE), BG SHA T DESC OS g 93i8 
5 10 AS OD V (PRIM_SUBNODE), R 3; 092 
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1 
1 77 BEQL Ss 8 
SE OA a3 8 p 79 BBS a 10(PRIM_SUBNODE), 8$ 
10 A fe PUSHAB ADR_KIND 
30 AE OOF PUSHAB ADR“PTRS 
52 DD PUSHL R 
000000006 Q 0 FB CALLS #3, DBGSSTA_SYMVALUE 
10 Ar D MOVL ADR_KIND, RO 
0 3 D} 1 CMPL = RO, *# 
¢ 94 BNEO 
24 «AE 3 AE C %6 ADDL2 ADR_PTRS, RESULT_DESC+4 
18 AE AE cc ; ADDL ADR-PTRS+4, BIT_OFFSET 
03 0 p| A2 5% CMPL =e RO, #3 
08 A BNEQ 
50 3¢ AE DO A MOVL ADR_DESC, RO 
24 «AE 4 ao c ADDL2 4(RO), RESULT_DESC+4 
eA 11 000 BRB $ 
04 0 D1 000B2 6$ CMPL = RO, #4 
iC 12 0008 BNEG 6 7$ 
04 AE 9F 000B PUSHAB NAME 
52 DD OOOBA PUSHL Rg 
000000006 00 02 FB 0008 CALLS #2, DBGSSTA_SYMNAME 
04 AE DD 000C PUSHL NAME 
oN DD Co PUSHL 
00028170 8F DD 000C PUSHL #164208 
68 03 FB OO0CE CALLS #3, LIBSSIGNAL 
09 11 00001 BRB 
000287F8 ar DD 00003 7$: PUSHL 5880 
68 1 FB 00009 CALLS #1, LIBSSIGNAL 
0 09 A3 9A 000DC 8S MOVZBL 9(PRIM_SUBNODE), RO 
01 20 91 000E CMPB sO, #1 
1 O0E BNEQ 4$ 
58 20 A3 00 O00E MOVL g(PRIM_ SUBNODE) , ADDR_OFFSET 
52 1B «6A3) «9A 000E9 MOVZBL 27(PRIM-SUBNODE). INDEX 
3— 11 OOOED B 11$ 
54 52 14 C5 OOOEF 9$: MULL3 #20 INDEX, R4 
28 A344 (OF OOF 3 PUSHAB 40(PRIM_SUBNODE)(R4) 
59 9E 00 O00F MOVL 9(SP)+ VALU 
38 A344 OF OOOFA PUSHAB 56(PRIM_SOBNODE)(R4) 
55 9E DO OOOFE MOVL a(SP)+,"TYPEID 
09 000000006 00 91 00101 CMPB DBGSGB_LANGUAGE , “9 
18 12 00108 BNEQ 10$ 
55 DS OO10A TSTL TYPEID 
14 13 0010C BEQL 108 
04 18 AS 91 001 CMPB ; (TYPEID), #4 
— 12 0011 BNEQ 0$ 
0220 8F BB 0011 PUSHR #°M<RS.R9> 
000000006 90 : FB 118 CALLS #2, DBGSENUM_POS 
9 p 11F VLRO. -$_VALUE 
2c A344 (OF 001 é 10$:  PUSHAB 44(PRIM_SUBNODE)(R4) 
50 59 9 cs 1 RULL 3 a(SP)+,"S VALUE, RO 
8 2 CO O010A ADDL2 RO, ADDR OFFSET 
BF F4 0012D 11$:  SOBGEQ INDEX, 98 
06 OA A3 E1 001 BBC #2, 16(PRIM_SUBNODE), 12% 
18 AE : £0 ADDL2 A R_OFFSET; BIT_OFFSET 
24 «AE 8 CO 00138 128:  ADDL2 ADDR_OFFSET, RESULT_DESC+4 
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1 
01 1 0013F 13$: BRW 24$ : 095 
06 ‘| 142 14$:  CMPB RO #6 : $336 
1 14 Bea. 4©=-«dn5$ : 
10 6 91 0014 CMPB SS séRO, #16 : 
1 14A BNEQ ss 1 é : 
52 18 «OA FD «6BF «6078 0014C 158 ASHL #3, BIT_OFFSET, ADDR : 0997 
5 24 AE : 1 ADDL2 RESULT DESC 4 ADDR : 
62 0 : 1 PROBER #0, #5, (ADDRS : 0998 
1 15A BNEQ 16$ : 
DD 0015¢ PUSHL ADDR + 0999 
DD 001 PUSHL @# : 
00028228 8F ODD 001 PUSHL #164392 : | 
68 3 Fe 1 CALLS #3, LIBSSIGNAL , 
00ce 31 0016 168: BRW 22§ + 1003. 
07 50 3 giee 17$: es RO, #7 : 1007. 
13 $6 91 b191 CMPS =—séRO, #19 : 1010 
0 13 00174 BEQL «=s«éd188 ; 
0088 31 0176 BRW 20$ : 
C1 OA A3 04 £0 179 18$: BBS #4, 10(PRIM_SUBNODE), 13$ + 101 
OA a3 19 8 O17 BISB2 #16, 10(PRIM SUBNODES + 101 
5 1c OA o9 01 OVL  28(PRIM_SUBNODE), R2 + 101 
B? 13 001 BEQL 13$ : 
08 AE 9F 00188 PUSHAB TAG_NAME + 101 
52 OD 0188 PUSHL Re : 
000000006 00 02 FB 001 CALLS #2, DBGSSTA_SYMNAME : 
OC AE 9F 00194 PUSHAB TAG_SIZE + 1019 
52 DD 00197 PUSHL Re : 
000000006 00 02 FB 00199 CALLS #2, DBGSSTA_SYMSIZE : | 
Oc AE OD 0140 TSTL TAG_SIZE : 1020) 
9A 13 OO1A BEQL 4 ©=-:-13$ ; 
08 BE 95 00143 TSTB © @TAG_NAME : | 
95 13 00148 BEQL 138 : | 
10 AE 99F OOTAA PUSHAB ADR_KIND > 1022. 
30 AE 9F OO1AD PUSHAB ADR7PTRS ; | 
52 DD 00180 PUSHL Re : | 
000000006 00 0 FB 0182 CALL #3, DBGSSTA_SYMVALUE 3 
C AE 24 AE CO 0018 ADDL2 RESULT DESC#4, ADR PTRS ; 1023, 
0 AE 18 AE £0 018 ADDL BIT_OFFSET ADR_PTRS+4 > 1024 | 
2c OBE 04 0 ¢ O1C PROBER #0,-#4, @ADR_PTRS : 1029. 
— 1 1¢ BNEQ 19% ; 
2¢ AE DD OOICA PUSHL ADR_PTRS + 1031. 
1 DD 001CD PUSHL #1 ; 
00028228 8F DD OOICF PUSHL #164392 : 
3 FB 00105 CALLS #3, LIBSSIGNAL : 
52 2c «BE OC AE 30 AE EF 00108 198: EXT2V ADR_PTRS#4, TAG_SIZE, @ADR_PTRS, TAG_VALUE : 1033, 
4 AS DD OO1E PUSHL  36(PRIM SUBNODES : 1034, 
52 DD OO1E PUSHL TAG_VALOE : | 
000000006 90 g FB iE CALLS 2, bBG STA_VARIANT_VALUE ; 
E E8 OO1EC BLES =o 4 F 
08 AE DD OO1EF PUSHL  TAG_NAME : 1035 
52 0D Ife PUSHL TAG-VALUE ; 
DD OO1F PUSHL : 
00028718 8F DD 001F6 PUSHL #165659 ; | 
68 4 Fe 1FC CALLS #4, LIBSSIGNAL F | 
¢ 1 1FF BRB 24§ > 1011 
OF 50 91 00201 208 CMPB—séRO, «#15 ; 1040. 
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68 
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00028708 
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5 
52 1 
OA A6 
10 
30 
000000006 00 
50 10 
02 
24 f 
18 AE 0 
03 
50 ec 
24 =A 4 
01 
24 OA $5 
18 AE 0 
04 
14 
000000006 00 14 
00028170 
68 
000287F8 
$0 08 
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00264 
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00574 

0276 

: 78 

0 ee 268: 

0588 SNee 
0287 MOVL 
0 ADDL2 
0 BRB 
0292 27%: CMPL 
3 BNEQ 

97 MOVL 
029C 
Al 
; 
AB 
AD 
B4 
87 
ag 
SF 
cg 29% H 
CALL 
0$ CASEB 
D2 31$ WO 
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Ax-11 BL A igeeze v4.0 48. 
DEBUG. SRC JDBGVALUES B32; 1 
FSET, ADDR 
+4, ADDR 

OFFSET, BIT_OFFSET 


m6, Torr se set. RO 
sin "P82, (ADDR), RESULT_DESC+4 


584 8 
LIBSSIGNA 
(Pha SUBNODE) , PRIM_SUBNODE 


16(DATA_SUBNODE), R2 
i weeata. SUBNODE), 
ADR Bins 

ie 1 Nat ehmnety 


30$ 


6 
ADR_PTRS, RESULT _DESC+4 
oe “PTRS+4, BIT OFFSET 


RO, #3 


ADR_DESC, RO 
4R0), RESULT_DESC+4 
rT 


2 
ADR_PTRS, RESULT DESC +4 
Apne PTRS+4, BIT_OFFSET 


R a4 
29§ 
Ste 
a, DBGSSTA_SYMNAME 
NAME 

64208 
#3, LIBSSIGNAL 
a 65880 
LIBSSIGNA 
(ial at, #0, #13 
$-31$;- 
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9-30 =| 24 AxX-11 Bliss-32 v4.0-74 Page 44 
1exsee~} 38s 98:33:82 = eae. Shclbeccatcés.ogs;1 atts 
00028800 a DD OOZEE 328 PUSHL + 1281 
68 01 rs 0 Fg CALLS #1 $SIGNAL F 
33 AE 94 8 F9 33S CLRB = RESULT_DESC+3 + 1143 
04 8 ag 1 0 FC CHP (DATA SUBNODE), + 1135 
03 =A? 38 0 oe TSTB (R7) + 1136 
22 12 030 BNEQ 4$ : 
6A 95 00307 TSTB = (R10) : 1137 
1E 19 00309 BLSS 34$ ; 
16 000000006 00 01 00 08 CMPL PBGSGL_ DFLTTYP, #22 + 1138 
15 13 0031 BEQL 4$ : 
22 AE 000000006 00 90 00314 MOVE  DBGSGL -DELTTYP RESULT_DESC+#2 + 11446 
50 000000006 00 3C¢ 0031 MOVZWL DBGSGW-DFLTLENG, RO + 1145 
20 AE 0 89 0 MOVW 8 RESULT_DESC 3 
9 11 00 BRB 37§ + 1146 
18 Ar 03 0329 34$: ‘TSTL B11 OFFSET : 1155 
OF ba bots BEQL $ 3 
00028800 BF DD 0032e PUSHL #165888 ; 
68 01 FB 00 CALLS #1, LIBSSIGNAL ; 
24 AE DD 00337 35$: = PUSHL RESULT DESC +4 : 1157 
000000006 00 9} FB O33A CALLS #1, DBGSIS_IT_ENTRY 3 
OA 9 3 0341 BLBC R0 6$ : 
22 AE 17 90 00344 MOVE $, RESULT _DESC+2 : 1160 
1c AE 10 00 0 48 MOVL #16. BIT UEERGT TH > 1161 
19 11 0034¢ BRB > 1157 
22. AE 16 90 0 4 368: MOVB = #22, RESULT_DESC+2 : 1165 
7E 7C CLRO p) > 1166 
2c AF DD 4 PUSHL R SULT_D ; | 
000000006 90 03 F 7 CALLS basing, “Decove : 
0 24 =O UBL R SuLT_DESC#4, RO : 1167 
1c AE 50 0 7$ ASHL #3, RO? BIT_LENGTH : 11 
00DF Bs BRW 53$ : 11 
01 09 «OA $ $ CMPB © 9(DATA_SUBNODE), #1 : 1179 
0 } 6 BEQL 40S ; 
OOAE BRW 1$ ; 
58 : A6 00 00373 40$: MOVE ¢(DATA ~SUBNODE) , ADDR_OFFSET : 1183, 
24 A6 9E 0037 MOV (DATA”SUBNODE). R& : 11 
2 0 AG QA 28 MOVZBL R4), INDEX : 
53 $2 aE te OBeey gis: BoPks 30, INDEX : 1189 
sf 28 aoa if PUSHAB 4O(SATAL SUBNOOE CRS) ; 
38 Abs OF PUSHAB BS SDATA. SOMNDDEDCR33 ; 1190 
58 D0 VL @(SP) 4, “TYPEID : 
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Nm— Orrr = for 
on MOoNMmw caw 
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—wo 
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F970 
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24 ~=«BE 
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0220 ; 
2c mi 
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06 
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01 AG 
04 
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OA 
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04 
AE 01 
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AE 1 A6 
8F 22. =OAE 
OE 
AE 1 
AE 01280001 4 
20 «AE 
CF 1 
AE 0 
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18 AE 
$3 AE 
8 A 
BC A 
3 A6 
7E 0 A6 
CF 06 
08 23. AE 
OA 
OE 22 AG 
A 5 
1 22. «AE 
1¢ 
08 0 
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-Sep-19 
9 93 
1 9A 
D 9C 
We 
1 AG 
PB OOSAA 
00 B1 
F B4 42$: 
CS 00388 
CO 8 BC 
F4 BF 43$: 
E1 00 Cs 
CO 003C 
11 : cB 
9 CD 44$: 
7) . 4 45$: 
96 00%p7 
11 00308 
95 0035DD 46$: 
ig 03E0 
95 003E2 
{3 O3E4 
90 O03E6 47$: 
99 O3EA 
11 00 43 
8 + FO 48$: 
90 OO3F4 49%: 
80 38 F9 
91 OO3F 
is 0040 
DO 0040 
DO 00409 
11 00411 
9F 00413 50S: 
44 0416 
00 00418 
11 O041F 
9F 00421 51$: 
OF 3 4 
9F 00427 
43 r A 
A 004 
F 4 
3 439 52$: 
\¢ 43D 
4 Se 
96 doce’ 
91 00449 53$: 
12 00440 
95 44F 
tri 
DD 00456 
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Se canta a9 

TYPEID 

24(TYPEID), 


wsmcRs 
; ea POS 
tadnt SUBNODE)(R3) 
a(SP)+,~S VALUE, RO 
RO ADOR FFSET 

1O(DAT A_SUBNODE ) 
AOR lOFFSets BIT OOFrset 


ADDR OFF ser. RESULT_DESC+4 
a] 


» RESULT_DESC+3 


Brn LF aeTKrnvrst 
now 


OmMon—OD OOD O— 


RESULT_DESC+3 
b), RESUCT_DESC+8 


RESULT DESC eS 
4) RESOL! 
DAtA UBhgBE) 


C+2 
CRESULT DESC 
ULT Anesc 


dea 
s0b6S). R RESULT DESC 


ESC 
DBESDATA LENGTH 
BIT_LENGTH 


BATA SUBNO 
DATA (SP) 
6, 086 rae iN vas _DESC 
RESULT _DESC+3, #11 

se. DESC+2, #14 


RESULT_DESC+2 
oi suit OESCT OS #24 


#8, @RESULT_DESC+4 
RESULT_DESC+4 


DBO $$ DW D4 DVBWV SVD INVBLCL— 
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| vO4-000 10-Sep-19 4 95:93:80 DEBUG. SRC JDBGVALUES.B32;1 917) 
| 1 DD 00459 PUSHL #1 : : 
00028228 8F DD 36 USHL #164392 : 
68 3 FB 4 CALLS #3, LIBSSIGNAL ; 
20 AE 24 BE 29 AE : 0464 54$:  MOVCS RESULT_DESC, GRE SULT DESC +4, RESULT_DESC =; 1293 
1 AE 4 0468 55$: CAPS RE SULT_DESC#2, r + 1300 
20 22 AE 4 g¢71 CHPE RESULT_DESC+2, #32 + 1301 
24 «BE 08 i o¢ gc? 56$: PROBER #9 #8, @RESULT_DESC+4 + 1304 
E 12 0047¢ BNEQ : 
24 AE DD 0047E PUSHL RESULT_DESC+4 + 1306 
1 0D 04 1 PUSHL : 
00028228 8F DD 00483 PUSHL #164392 : 
68 3 FB 00489 CALLS #3, LIBSSIGNAL ; 
24 =«OAE 34 BE DO 0048C 57$: MOVL a@RESULT DESC+4, RESULT _DESC+4 + 1307 
21 2 AE 91 00491 CMPB =—s- RESULT_BESC+#2, #3 + 1308 
04 ff 00495 BNEQ : 
22. AE 16 90 00497 MOVB #22, RESULT_DESC+ + 1310 
20 22 AE 91 00498 58S: CMPB =—s- RESULT_DESC32, #3 + 1311, 
04 12 0049F BNEQ 59$ : 
22 AE 17 90 004A1 MOVB #23, RESULT_DESC+2 + 1313 
}) ey 14 AG CO 004A5 59$:  ADDL2  20(BATA_SUBNODE), RESULT_DESC+4 > 1317) 
59 6A 01 £1 OOAA BBC #i, (R10), 66$ + 1319 
57 6A 02 3 004AE BBC #2. (R10). 67$ + 1325 
50 10 A? 32 00482 CVTWL  16(R7), R : 1328 
18 AE 50 £0 00486 ADDL RO, BIT OFFSET : 
1c AE 12 A? 3C OO4BA MOVZ2WL 18(R7),~BIT_LENGTH : 1329 
20 AE 04 004BF CLRL RESULT DESC : 1332 
07 18 AE 93 004C2 BITS iT OFFSET, #7 : 133 
78 12 004C6 BNEQ 0$ F 
50 1c «= AE. «=O 004C8 MOVL  BIT_LENGTH, RO > 1334 
08 50 01 004¢C CMPL ~=—saRO, "#8 : 1337 
OF 12 OO4CF BNEQ 61% ; 
05 6A 03 €1 00401 BBC #3, (R10), 60$ : 1338 
50 06 DO 00405 MOVL #6. RO ; 
29 11 00408 BRB 65$ : 
50 02 DO 004DA 60$: = MOVL a RO : 
¢4 11 00400 BRB 65$ ; 
10 0 D1 OO4DF 61S: CMPL = RO, -#16 + 1340 
OF 12 004E2 BNEG 63$ ; 
05 6A 03 £1 004E4 BBC #3, (R10), 62$ + 1341 
50 07 00 Ques MOVL #7. RO ; 
fs 11 004EB BRB 65$ ; 
50 03 00 Que 62$ MOVL a3 RO ; 
11 11 O04F BRB 65$ ; 
20 50 01 004F2 63% CMPL = RO, #32 + 1343 
49 12 O04F BNEQ 70$ : 
05 6A 3 61 Oa BBC #3, (R10), 64$ > 1344 
50 : DO O04FB MOVL #8. RO ; 
11 004F BRB 65$ ; 
50 4 20 64$:  MOVL #4, RO ; 
22. «AE 9 65$: MOVE RO RESULT_DESC+#2 ; 
11 668: BRB ee : 
25 22 AE 1 9 673: CPB RESULT_DESC*#2, #37 : 1355 
2 « 010€ rt 26 F MOVW #270, RESULT_DESC+2 : 1359 
$¢ AE 2 CO 00515 ADDL2 #2, RESULT_DESC+4 : 1360 
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36 519 68$: 
510 
f 521 
0525 
91 2 A 
1F 3 
91 5 
1A 00534 
BO 82 6 
11 538 
BS O00 908; 
73 $370 
a $246 
+] S4A 
é 0054D 
90 0054F 
9A OO 823 71$: 
91 0055 
13 OOS5A 
91 0055C 
13 0055F 
91 00561 
13 00564 
91 00566 
13 00569 
91 00568 
12 0056E 
dO Fa 728: 
11 0057 
DO 00575 73$: 
C7 00578 74$: 
BO 00570 
DO 00581 
11 00586 
C7 00588 75$: 
CO 0058) 
95 00591 
12 00594 
DO 00596 
93 0059A 
is 00590 
:f tH 
A OOSA? 
90 OOSA9 76$: 
D1 OOSAD 
if 0584 
BO 00586 
D4 OOSBA 
11 280 
B4 BF 77$: 
28 4 78$: 
3 cc 
4 CF 
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16(R7), RO 

RO, RESULT_DESC+4 

1B(R7), RO 

#3, RO, BIT_LENGTH 

RESULT. DESC#2, #14 

RESULT_DESC+2, #20 
(R7), RESULT_DESC 

70$ 


RESULT DESC 
1 OFFSET, a7 


#13, RESULT_DESC+3 
RESULT_DESC#2 


#34, RESULT _DESC+2 
R SULT DESC Te, RO 


LENGTH, R1 
LT_DESC 

ET; RESULT_DESC+8 
#8, BIT_OF 
RO, RESOLT 
RESULT_DES 
BIT_LENGTH, RO 
BO “is 


set 
tn 


#8, RO, R1 
R1, RESULT_DESC 
#1, RESULT_DESC+2 
Rg § yatay 


RO, RESULT _DESC 
RESULT _DESC* 
78$ 


RESULT DESC 
RO, RESULT _DESC+8 
#12, RESULT DESC, @VMS_DESC 
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val_desc - The address of a longword to contain the address of the 
resulting value descriptor 
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| DBGVALUES 1hese 1984 02:45:26 AX-11 Bliss-32 V4.0-74 Page 49 
yO ~000 12-8081 382 95:99:88 DEBUG. SRC JDBGVALUES .832;1 . (18) 
3 } re 108) ! GLOBAL ROUTINE DBGSPRIM_TO_VAL (prm_desc,target_type.,val_desc) = 

: : ¢f 1488 : } FUNCTIONAL DESCRIPTION: 

: 1349 1465 1! Translates language independent descriptors fo Language independent 

; 1350 1298 T ! value descriptors. Normally the input descriptor will be a primary 

; 1351 1467 1! poses Teter (a symbolic address reference) but it is also possible 

3 1 28 1468 1! to call this routine passing it a volatile value descriptor’ (used 

3: 155 1492 1! for absolute addressing) or a normal value descriptor (indirection). 

3 1354 1470 1! This routine should be able to use the symbol table access routines 

3; 1355 1471 1! and the information contained within the primary descriptor to make 

. 3 28 Vole 1! a descriptor representing a ‘value materialization' for the object 

; ; ef ee, } described by the input descriptor. 

: 1389 1475 1! Note that this routine must be able to use life-time, invocation, and 

; 1360 1476 1! goneres “ee information to produce an accurate value descriptor of the 

; 1361 1477 1! nput object, or to decide when the value of an object cannot be 

$ 1306 1478 1! materialized (such as when the user's PC is not within the scope of 

3; 136 1479 1! a dynamic variable). 

3; 1364 1480 1! 

3; 1365 1481 1! Value descriptors produced by this routine must be marked (within the 

: 1366 one 1! sype field of the enguage independent header block) as to whether 

3; 1367 1485 1! they are non-volatile (dbg$k_value_ desc) or volatile (dbg$k_v_value_desc). 
: 1308 isze } Volatile value descriptors will NOT be stored to represent "\", ‘last value’. 
3; 1370 1486 1! Since value descriptors may be used as target descriptors ( as input to 

3 1371 1487 1! dbg$ncob_type_conv ), some provision must be made for aneerperen te 

3 1372 1488 1! a value pointer field within the value descriptor. This type of value 

: 13? pt + : descriptor is loosely defined as a volatile type. 

3; 1375 1491 1 ! FORMAL PARAMETERS: 

3; 1376 pe <1 1! p : 

: HE 1A4 ear : prm_desc - A longword containing the address of a primary descriptor 
3; 1379 1495 1! target_type - A bonguerd containing the type of value descriptor 

; 1380 1496 1! (dbg$k_value_desc or dbg$k_v_value_desc). 

; 1381 1497 1! 

: 1382 1498 1! 

: 1383 1499 1! 

3; 1384 1500 1! 


— 
i 


F 14 
3 1 1501 1°! IMPLICIT INPUTS: 
s 3 1 § 1! 
3 1 1 1! NONE 
3 7 1506 1! 
3 : : 5 : IMPLICIT OUTPUTS: 
: 1 1 1 i In case of @ success return, the resulting value descriptor must be 
3 : , 1388 : constructed from dynamic storage and returned. 
: 139 1510 1 ' ROUTINE VALUE: 
3 1 98 1511 17! 
s : 44 ’ i : An unsigned integer longword completion code 
: 1399 1514 1 | COMPLETION CODES: 
: 1400 1815 1! 
3 et 1218 ' STSSK_SUCCESS (1) = Success. Value descriptor constructed and returned. 
; 1408 1318 : STSSK_ERROR (2) = Failure. Data-type is not known to DEBUG kernel. 
5 1405 1520 1 ! SIDE EFFECTS: 
3 1406 1521 1! 
3 He 14 3 ¢ ' } In case of a severe error, this routine will SIGNAL the error. 
: 1409 1524 1 ine 


| 
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14-Sep-1984 DEBUG. SRC JDBGVALUES.B 
!DBGSPRIM_TO_VAL (prm_desc,val_desc,target_type) 
BEGIN 


DBS VALNES 18-Sep-19 4 96:43:86 AX-11 Ot igseze OES o85s1 Page 51 if 


— 
> 
—_ 


Describe formal parameters that are structures 
MAP 
prm_desc : REF dbg$primary; 
i 
Declare routine-level local variables 
LOCAL 
result_desc : REF dbg$valdesc 


data_desc : BLOCK ttey valdesc_base size+1,LONG] 
FIELD (dbg$dhdr_ fields, dbg$value_fields); 


BIND vms_desc = data_desc(dbg$a_value_vmsdesc] : dbg$stg_desc; 
dbg$gl_current_primary = .prm_desc; ! A003 
} It is illegal to call DBGSPRIM_TO_VAL with a type. 


HgpPre.dencldbgte_ cher bind) EQL rst$k_type 


BEGIN 
LOCAL 


name; 
if pra.descldbgsl_dhdr_synid0) NEQ 0 


BEGIN 
Parte symname(.prm_desc(dbg$l_dhdr_symid0], name); 
SIGNAL Tdbg$_novaltyp, 1, .nameJ; 


ELSE 
- SIGNAL (dbg$_novalue); 


'¢ 
First construct a VAX/VMS descriptor that for the desired value 


IF .prm donc ldbeSt_dhor_synid03 NEQ 0 THEN dbg$sta_setcontext(.prm_desc(dbg$l_dhdr_symid0)); 
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266 dbg$colTect(.prm_desc); 

208 SELECTOM -prm_desc(dbg$b_dhdr_type] OF 

356 cooth pr inary desc): 

571 IF"NOT dbgSmake_vms_desc(.prm_desc,vms_desc) THEN RETURN sts$k_error; 
276 Cdbg$k v val ug.desc : 

57 chSmove(12.prm_desc(dbg$a_value_vmsdesc),vms_desc); 

He Cdbg$k_value_desc]: 

278 ch$fill(o Se valdesc_base_size+1)*ZUPVAL ,data_desc); 

57 data_desc(dbg$b_dhdr_lang]) = .prm_desc dbg$b_dhdr_tang); 

278 data_descidbg$b_dhdr_type = .prm_descldbg$b_dhdr_typel; 

57 data_desc(dbg$l-dhdr-symid0) = pre descldbg$\~dhdr~symid0): 
280 data_desc Gooeu_ ghee. Length = dbg$k_valdesc_base_sTze*ZUPVAL; 
581 data_descldbg$b_dhdr_kin = rst$k_data; 


pepenrie — pieneyeesiancibenanilandigedipiaanan 
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data_desc(dbg$b_dhdr_fcode] = rstSk_type_descr; 


=" 
= 
oOo 


MEW 


= 
> 
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i Passing a pointer value into DBGSPRIM_TO_VAL results in a 


0 

1 

¢ ' value which is obtained by dereferencing the pointer. 

: IF gprm.descldbg$b_dhdr_ tcode] EQL rst$k_type_tptr 

§ BEGIN 
LOCAL bit_length,bit_offset; 

8 dbg$sta_typ t pedptrt. pra descCdbgSl dhdr.typeid).data_de crébest dhdr_typeid]); 

& data_descldbg$b dhdr_fcode] = go9 ote type icone \eote_ gree dogs didr_typeid)); 
IF .data_desc(dBg$b_dhdr_fcode) EQL rst$k_type_array THEN RETURN 0; 


bit_length = 0; 
bit_offset = 0; 


vms_desc(dsc$b_class] = 0; 
vms_descldsc$b_dtype] = 8: 


wre 


vms_descldsc$w_length) = 

vms_descldsc$a_pointer] = 

GbgS11Ul_in_vas_desc (.date_gescl dbgso_dh r_tcodeJ; 
-data_des 


Fk tell 2ek- de De ek 


END; 
COTHERWISE): 
al SIGNAL (dbg$_illtype); 


oo 
on 


result_desc = dbg$Smake_val_desc(vms_desc,.target_type); 
result_desc dbosb_dhdr. lang) = .prm_desc(dbg$b_dhdr_lan 3 
result_descldbg$b_dhdr_kind] = ind); 
result_descldbg$b_dhdr_fcode]_ = .prm_desc dbg$b-dhdr~fcode); 
resultdesc(dbg$l-dhdr-typeid) = .prm_desc(dbg$l_dhdr typeid); 
result_descldbg$l_dhdr_symid0] = : 
result_desc(dbg$v_dhdr_override] bg$v_dhdr_override); 


= .prm_descl 


tt at 8 tt = =I IQOOODOOOOOCO COOOOOO OO OWB@Monccoa 
VEIN 0 OONOUES WN 0 DOONAN WIN 9 ODNO UE WIN OOD NAME WN (OO OONOUE wT 


LESFELLSS 


+ 
Special case in COBOL. Treat the cobol record as text string. 


If ,,result_descLdbg$b_dhdr_tcode] EQL rst$k_type_record 


PPPAP ATU EY EEE EEE EEE 


Oo 
SoOw 


BEGIN 
LOCAL tmp_symid: REF rst$entry; 


tmp_symid = .result_desc(dbg$l_dhdr_symid0); 

Hire tap syatatectes kis q NEQ rst$k module dO 
tmp_symid = .tmp_symid rst l_upscopeptr); 

IF ,,tmP_symidCrst$b_Tanguage EQC dbg$k_cobol 


BEGIN 
result_desc(dbg$b_dhdr_fcode] = rst$k_type_descr; 
result_desc(dbg$b_value_class dsc$k_claSs_s; 
result_descldbg$b_value_dtype dsc$k_dtype_t; 


ee ee a ed ee ce ee ee ee ee ce ee ee ee ee a ee ce a a a ee a a ed 
PAE EAAAAAAAAAAAAAAAA AAA AA AAA AA DPD PAA PAP DP AAAs 


AB BB BHI MINI IU RIDIPININPINININIDINININIAINININININININIA ES BEEP EEE EE EEE FE PMI 


Be Be Be Be Se Se Se Se Se Se Se Se Se Se Se Se Be Se Se Se Se Ge Se Ge Ge FF Se SF Se Se Ge Ge Se Se Se Se Se Se Se Se Se SF S5 Se Se Se Se Se Se Se Se See Se Sseese 
ee ee ee 


FUN —OOCOnOuvfwunr— 


POPUP PV PUSS AISI 
ROPONONNY — tt ot "© 


My 
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: 


'¢ 

1 Special case for subrange - if we are turning a subrange primary into 
: @ value descriptor, then change the type to reflect the parent type. 
: This is because, in all operations, a subrange is treated the same 

as its parent type. This thus simplifies the operator tables. 


VUFWwrn—OO° 


3 3 1639 
3 3 1640 
3; 7 164) 
3 oi 
.7 164 
3 Y 1644 
3 1645 
3 3 1ob8 : 
3; 3 164 IF .target_type EQL dbg$k value_desc THEN 
: | 1968 WHILE | .résu t.desc(dbg$b_dhdr-fcode] EQL rst$k_type_subrng DO 
3: (1 1939 LOCAL parent, fcode type id bit. length bit_offset dummy : 
: 13 i 1651 dboSsta_typ_subrng(.result desc dbg$l_dhdr_typeid), parent, dummy, dummy bit_Llength); 
; offset = 0; 
; 1539 1688 dog$sta_sym ypet parent segeg -typeie) : 
; 1540 165 result_desc(d g$b_dhdr_fcode = .fcode; 
3 1363 1655 result_desc dbgs\.dhdr_typeid = .typeid; 
3 3 4g 1938 result_descldbg$b_value_class] = 0; 
3; 154 165 result_descldbg$b_value_dtype] = 0; 
3 1544 1658 result descldbg$w_value_length] = 0; 
3; 1545 1659 dbgStiTl_in_vms_désc(. fCode. .typeid, .prm desc ldbg$l_dhdr symid0], 
: 1366 1660 result_desc(dbg$a_value_vmsdesc],bit_length,bit_offset); 
3; 154 1661 END; 
3; 1548 1996 
3; 1549 166 -val_ desc = .result_desc; 
: 1550 1664 RETURN sts$k_success; 
3; 1551 1665 
; 1552 1666 1 END; ! End of dbg$prim_to_val 
O1FC 00000 ENTRY DBGSPRIM_TO_VAL, Save R2,R3,R4,R5,R6,R7,RB ; 1461 
58 000000006 00 9 Bop MOVAB LIGSS1GNAL R8 3 
SE BB AE 9 00 MOVAB <-72(SP), SP ; | 
56 04 AC 00 0000D MOVL  PRM_DESC, R6 : 1543. 
000000006 09 56 D0 00011 MOVL 6 DBGSGL_CURRENT_PRIMARY : | 
5 04 A 3 0018 MOVAB 4(R6), R 3 1547 
07 03 A? 91 0001 CMPB 3(R7), #7 3 
29 12 000 BNEQ es : 
OC A6 05 000 TSTL 12(R6) 3; 1$$2) 
18 13 000 EQL 1$ 3 
5E 0D PUSHL SP ; 1555 
Oc A6é DD 9 PUSHL same) 3 
000000006 00 02 FB CALLS #2, DBGSSTA_SYMNAME 3 
6€ DD PUSHL NAME : 1556 
1 OD PUSHL #1 3 
00028168 F DD PUSHL #164200 3 
68 3 FB D CALLS #3, LIBSSIGNAL : 
9 11 RB 23 : 155 
000287F8 F DD 1$: PUSHL #165880 3 135 
68 1 F CALLS #1, LIBSSIGNAL : 
0c Ab p B 2%: TSTL =: 12 ¢R6) ; 1565 
OA BEQL ; 3 
OC A6 OD PUSHL (R6) : 
009000006 00 01 FB CALLS #1, DBGSSTA_SETCONTEXT : 


| J 14 
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56 DD A 3$: PUSHL R : 1566 
000000996 90 01 F a3 CALLS Rf DBGSCOLLECT : 
F 02 AG ? 5 CPB (R6), # : 1570 
38 AE OOF 6A PUSHAB VMS_DESC > 1571 
56 DD D PUSHL R : 
FOBC CCF 9 F oF CALLS #2, DBGSMAKE _VMS_DESC 3 
11 E 6 4 BLBS RO, : 
50 0 77 MOVL #2, RO : 
4 te RET : 
83 BF 02 ag 91 07B 4$ CHB 2(R6), #131 + 1572 
38 AE 146 Ab O¢ 24 09 i MOVs #12, 20(R6), VMS_DESC : 1573 
7A —soOBF 02 Ab 91 OO008A 6$: CMPB (R6), #122 + 1574. 
6A 12 O008F BNEQ : 
24 00 6E , 00 2c 0091 MOVCS #0, (SP), #0, #36, DATA_DESC > 1576 
26 AE $3 A6 B80 00098 MOVW 2(R6), DATA_DESC+2 > 1578 
0 AE OC A6 DO 0009D MOVL  12(R65, DATA_DESC#+12 : 1579. 
24 AE 0 80 000A2 MOVW #32, DA : 1580. 
A AE 0603 8F BO 000A6 MOVw #1539, DATA_DESC+6 : 1582. 
06 02 A? 91 OOOAC CMPB (R7), #6 : 1588) 
52 12 00080 BNEQ : 
2c AE OOF 0082 PUSHAB DATA DESC+8 + 1592. 
08 <Aé6 ODD 0008 PUSHL (R6) 3 
000000006 00 02 FB 00088 CALLS 4&2, DBGSSTA_TYP_TYPEDPTR : 
2¢ «AE OF O000BF PUSHAB DATA + : 1593 
000000006 00 1 FB 00¢@ CALLS #1, BBGSSTA_TYPEFCODE : 
2A sOAE 0 90 000¢ MOVB RO, DATA DESC+6 ; | 
01 2A AE 91 000CD CMPB = DATA_DEST+6, #1 : 1594. 
0 1 0001 BNEQ 7$ ; | 
00E6 : 0003 BRW 15$ : | 
04 AE 7C 00006 7$: CLRQ = BIT_OFFSET : 1596. 
38 «AE OG 99009 CLRL ss VMS DESC : 1599 
3c OA 18 B86 00 000DC MOVL  @24TR6), VMS_DESC+4 : 1600 | 
04 AE 9F OO0E1 PUSHAB BIT_OFFSET : 1601 | 
OC AE 9F O00ES PUSHAB BIT“LENGTH ; 
40 AE 9F OOOE7 PUSHAB VMS~DESC ; 
C A6 OD OOOEA PUSHL  12(R6) : 1603) 
€ AE 0D OO0ED PUSHL DATA_DESC+8 + 1602 
7E E AE 9A 000FO MOVZBL DATA"DESC+6, -(SP) : 1601 
FOEO = CF 06 8 OOF4 CALLS #6, BBGSFILL_IN_VMS_DESC 3 
9 11 000F9 BRB 9$ : 1568 | 
00028708 8F ODD OO0FB 8$: PUSHL #165848 > 1608 
48 1 FB 00101 CALLS #1, LIBSSIGNAL : 
08 AC DD 00104 98: PUSHL TARGET TYPE : 1611. 
C AE 9F 00107 PUSHAB VMS_DE ; 
FSIE cf 9 FB OO10A CALLS a, DBGSMAKE_VAL_DESC F 
p 10F MOVL RO, RESULT D ; 
03 A st Ne MOVB 3(R6) . RESULT DESC) > 1613 
5 Sry 3 11 MOVAB (RESULT DESC), R > 1614 
02 A : b a 11 MOVW g(R ), 2trd) > 1615 
08 A Aé6 70 001 mova (R6) (RESULT DESC) ; 1616 
Q EF 001 EXTZ2v #7, #1, (R7), RO > 161 
7 FO O012A INSV RO. #7. #1, (R3) ; 
7 02 Ad 91 O012F CMPB so 2(R3), #7 + 1624 
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2 13 1 BNEQ 12% ; 
50 of A p 1 MOVL  12(RESULT_DESC), TMP_SYMID + 1629 
01 4 OA 139 108: CM ; (TMP_SYMID), #1 : 1630 
06 13 00130 BEQL 1$ : 
50 10 AO 00 00135 MOVL §16(TMP_SYMID), TMP_SYMID + 1631 
F4 11 143 BRB 10$ : 
03 29 Aad 91 00145 118 CMPB 0s GTC TMP_SYMID), #3 + 1632 
A 12 00149 BNEQ 128 : 
02 =A 3 90 00148 MOVB =_« #3,,_ 2( R23) + 1635 
16 OA 010 F BO O014F MOVW #270, 22(RESULT_DESC) + 1637 
0000007A_=s&F 0 D4 18 12$ CPL TARGET_TYPE, #122 > 164 
09 02 =A of 15f 13$: CMPB e(R3), "9 + 1648 
4F 12 0163 BNEQ 4$ F 
20 AE OF O16 PUSHAB BIT_LENGTH + 1651 
10 AE 9F 00168 PUSHAB DUMMY : 
14 AE 9F 00168 SHAB DUMMY : 
1C AE OOF O1Ge PUSHAB PARENT : 
08 A2 0D 00171 PUSHL 8(RESULT_DESC) : 
000000006 00 05 FB 00174 CALLS #5, DBGSSTA_TYP_SUBRNG : 
1¢ AE 04 00178 CLRL = BIT_OFFSET : 165 
14 AE 9F O017E PUSHAB TYPEID + 165 
1C AE OF gigi PUSHAB FCODE ; 
18 A DD 184 PUSHL PARENT b 
000000006 09 0 FB 0187 CALLS #3, DBGSSTA_SYMTYPE : | 
02. =A 18 AE 90 001 3 MOVE  FCODE, 2(R3 + 1654) 
08 A2 146 AE D0 0019 MOVL  TYPEIO, 8(RESULT_DESC) : 1655. 
14 A2 D4 00198 CLRL  20(RESULT DESC) : 1658 | 
1C AE 9F 00198 PUSHAB BIT_OFFSET : 1660 
24 AE 9F 0019E PUSHAB BIT LENGTH F | 
16 A2 OF OOTAI PUSHAB 20(RESULT_DESC) ; 
OC A6 DD OO1A4 PUSHL (R6) : 
24 AE DD 001A7 PUSHL TYPEID ; 
C AE DD OOTAA PUSHL  FCODE : 
F627 CF 06 FB 0O1Ap CALLS Ht DBGSFILL_IN_VMS_DESC : 
AB 11 001B2 BRB 13$ : 1648 
0c BC 52 00 00184 14$: MOVL = RESULT_DESC, @VAL_DESC : 166 
50 07 00 00188 MOVL #1, RO : 1664 | 
04 00188 RET ; 
50 D4 001BC 15$:  CLRL RO + 1666 
04 001BE RET : 


3; Routine Size: 447 bytes, Routine Base: DBGSCODE + 0B16 


_ 
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; } : 1967 1 aersegin DBGSPRINT_AGGREGATE(prm_desc,radix) : NOVALUE = 

51 1669 m_desc : REF dbg$primary; 

; : $ 1870 Butt IN” REMQUE; . . 

3 7 § 1926 “"subnode : REF dbg$prim_node, 

; 1560 167 s¢ : REF yf eee te 

3 : 63 1008 venta kind, fcode,typeid, dummy ,mark_one,mark_two; 

: 156 1676 dbg$gl_current_primary = .prm_desc; ! A003 
: 1564 1677 ” ae 

3 1202 1978 epeqneyt ine Q); 

3s 7 08 167 See “orn, aeset dogs veers ~ftmar in,+4); ! Indent by +4 

3; 156 1680 node = .prm_desc stort pri n- Linkd; 

: 1568 1681 seeeisiees Bnode evel 

: 1369 1o8¢ SELECTON vauBnode dbg$b_ omete feodel OF 

3; 1571 et: rstsk x otype.erray): 

: 1378 1685 

3; 157 1686 eh cell; 

; 1328 et LOCAL s_vector : REF dbg$prim_node_subs; 

3 1576 1689 S.vector = subnode(dbg$a_pnarr_svector]; 

3 1577 1690 

3; 1578 1691 ! Check for the array being empty (i.e., if any of t 

3; 1579 1998 ! dimensions has zero or negative length). If this “y the 

3; 1580 169 i case, indicate that this is an empty array, 

3 138) 1098 and then clean up and return. 

3 1285 1696 iNCR i FROM 0 to -subnode(dbg$b_pnarr_dimcntJ-1 D0 

3 1584 1697 4 BEGIN 

; 1585 1698 4 IF .s_vector[l.i,dbg$l_pnsub_lbound] GTR 

3 1386 1699 4 -S_vectorl.i dbg$l- pnsub_ubound 

; 158 1700 4 N 

; 1588 1701 5 BEGIN 

3; 1589 HA 5 coszer ing Comet (ZASCIC ‘Cempty array]')); 

3: 1590 1703 5 pr newline() 

: 1591 1704 § nodel dbgSv" pnode_eval] = fals 

3 1336 1705 § abgs point. control (dbg$k_prtset_ rlaargin, -4); 

3; 159 1708 5 

3: 1594 1707 4 3 

3; 1595 1708 END; 

3 1298 1709 

3; 159 1710 mark_one = dbgSpush tempmem(); 

3: 1598 1711 dbosste gyat yee’. . suBnodel Cdbg$l_ pnarr_celltype], fcode,typeid); 
3; 1599 HAL; dbg$build_primary_subnode(.prm_desc ,rst$k _data.0,.fcode,.typeid, 0); 
3 1600 171 Gbgscol Lecty. -prm_desc); 

3; 1601 1714 or control ldbgsv. control_stop] 00 

3 1006 1715 4 cell: +4 ag 

3; 160 i716 4 baSpush. tempmem(); 

3: 1604 1717 4 dbosarint_ ident fier (.prm_desc.0); 

: 1808 1719 4 ‘TiN abate os ys 93 ore. desc,.radix) 

3 1809 1720 4 “ -#89 

: 1608 1721 rt G IN e : eae 
3 199) \ § dbg$print(UPLIT BYTEC(ZASCIC *!AD!_°),1,UPLIT BYTE(':")); 


M14 
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if ee examine a label array in PLI then you see the 
nstructions at the p aegis. Instructions must always 
be represented as volatile value descriptors (since 

if you copy the bits, then the operands may change). 


F_.fcode EQL rst$k_type_self_rel_lab 
dbgSprim_to_val(.prm_desc,dbg$k_v_value_desc,val_desc) 


dbgSprim_to_val(.prm_desc ,dbg$k_value_desc,val_desc); 
dbg$print_valuet.val_desc,.radix, .dbg$gl-sign_flag); 
dbg$newline(); 


ND; 
dbg$pop_tempmem( .mark_two); 
IN ge ae FROM 1 TO .subnode(dbg$b_pnarr_dimcnt] DO 


GI 
LOCAL s,typeid: REF rst$entry; 
s = (IF -Subnodet dbgSv pnarr_column] 
THEN .dimension - T 
ELSE .subnode(dbg$b_pnarr_dimcnt] - .dimension); 


Seow end Dos Oru 
ee ey 


WN OO OONO VSWR OO OOVNOUS WN 
DPQ LAPP PAPA D SID IPD DP PDE DD LPP DED DPD ID IP DPD. DDB BDA 


typeid s .t. ector(,s.dbgs\ pneub. tyee id}: 
IF .s vector(.s,dbg$l_pnsub_svalue] GEQ ( 
if (.dbgSqb_ Canguage EQL“dbg$k_ada) AND 
nen’ d NEQ 0) 
eg teen te rete Magen EQL rst$k_type_enum) 


pg Hern _veAt. typete, -s_vector(£.s,dbg$l_pnsub_ubound]) 


Be NN ae aaandnartbae 


PAEAAAAAAAAAAAAA AAA A AAO AAAS 
uw 


WAWG 


-s_vector(£.s,dbg$l_pnsub_ubound] 
-s_vector(.s,dbg$l_pnsub_ubound)) 
THEN 
BEGIN 


! For arrays indexed by enumeration types in ADA, the lower bound field gives 
the position, which we need to translate into a value. 


o WIV SPELL EEE 


SAAAAAASAAAO OW PPA 


typeid = .s_vector£.s,dbg$l_pnsub_typeid); 
IF? dogSgb_Tanguage EQL dbgSk adad Xho 
(.typeid NEQ 0) 

fe <-Sypetetrette teodel EQL rst$k_type_enum) 


gg t vec tork.0.dbgsl_pneub_svaluel = dbgSenum_val(.typeid, .s_vector(£.s,dbg$l_p 


DONO VF WN 9 ODO UNE WO OOVNOUE WO 


s_vector(.s,dbg$l_pnsub_svalue] = .s_vector(.s,dbg$l_pnsub_\|bound) 
s_vector(.s,dbg$l_pnsub_svalue] = .s_vector(.s,dbg$l_pnsub_\ bound); 


SeaECSECeT Cee SET RRARRRRRCES 


s_value; 


Re Se Oe Se Oe Oe Oe Se Se Ss Se Be Se Ss Bs Se He Se Ge Se FF Fe Se Se FH Ge Be Se Ss Se SF Se Se Ge Se SF Se SF Ss Ge Se Se Se SF SF Se SFSe See Se eseSe Sees 
mk a a a aa kt at a wt a ot et = st 2 = 4 2 2 4 2 ss SS SH SS YH SS SS 
me em ee me ee ee a ad ed a ed = = 2 2 3 I 
Se te” be’ be be be be be be be ee be be, Be be ee ee i i i, i i ee 


SOOONOUEWN Oo 


oN NNN 


S3sF 


! For arrays indexed by enumeration types in ADA, we need to use ENUM_SUCC to get 


essa 


7 1781 
3 1869 17 ¢ 
3; 16 ° 17 

; 167 1784 
3 1o76 1785 
3; 167 17 § 
3 1674 17 

3: 1675 1788 
: 1678 1789 
3 167 1790 
s 1978 1791 
Se: 
i 188 1496 
$ 1o86 1795 
3; 168 1798 
3: 1684 179 

3; 1685 1798 
3 1938 1799 
3; 168 1800 
3: 1688 1801 
3: 1689 1802 


PRAHA BAA AAA AAA NANA AAA OS 
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1e- se0-1984 95:43:82 = Otoug. SkcSdecva oes 04351 9 21) 
: the successor subscript. In all other cases, we can just add one. 
s sva ye = .S_vector -$-dbgst . pnsub_ svalved: 
type = .$ vector y+ shrubs type'e 
IF (, { dbgsgs Tanguage Bite g$k_ada) AND 
(.typeid 
Hg treeteretee, fcoded EQL rst$k_type_enum) 
s.vector(.s,dbg$l_pnsub_svalue] = dbgSenum_succ(.typeid, .s_value) 


ELSE. s.vector(.s,dbg$l_pnsub_svalue] = .s_vector(.s,dbg$l_pnsub_svalue] + 1 


LEAVE” 
E 


over perh.8-toett, pnsub_svalue] = .s_vector(.s,dbg$l_pnsub_svalue] + 1; 


EXI TL ODP; 
f block ‘cell’ 


ND; End 
REMQUE ( .prm_descCdbg$l_ pra btinkd’ ,dummy) ; 
gbgspop_ tempmem(.mark_one); 


15 
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= 0; 
IF Ctaate = .symid(rst$l_vartagptr]) NEQ 0 THEN 
BEGIN 


dbg$sta_symname(.tagid tag_name); 
IF -tagrnaneL0] NEQ O THE 


dbg$sta syatype(. tegid. tcode. typeid): . 
dbg$build_primary_subnode(.prm desc. .rst$k_data,.tagid,.fcode,.typeid,0); 
dbg$prim_fo_val(.prm_desc, 95k _vatue esc,val_desc); 

va 


tag_val = .val_desc(dbg$l_value valueOJ; 


NOUS WO OOnN 


vartant = db Sta variant select( tag val, .symid); 
n 


691 03 Crst$k_type_record,rst$k_type_variant): 
69 B04 BEGIN’ ~ —,. 
69 05 LOCAL R,congs s_vector : REF VECTOR C,LONG); 
O88 508 eee dbgSb_pnode_fcode EQL rst$k_type_record 
638 S38 cogsste_typ_record(.subnodeldbgSl pnode_ type id) .n_conps.8_vector dummy) 
698 310 BEGIN 
699 ae ncomps = seunode) une Beres cen s]; 
pe \§ $ yee ter = .subnodeldbg$l“pnvar_complstd; 
ie HP INCR component FROM 0 TO .n_comps-1 DO 
i $12 # stya'e = .S_vectorlL.component]) NEQ 0 THEN 
705 B19 IF a Sogeae cpasrett aout control_stop] THEN EXITLOOP; 
706 818 IF pre eSc(dbg$v_dhdr_tmpref] THEN 
707 819 EGIN 
708 820 prm_desc(dbg$v_dhdr_tmpref] = false; 
709 821 prm_descldbg$v_dhdr_subref] = false; 
710 bc¢ prm_descldbg$w_prim_offset] = 0; 
ay! th era Aone dbg$w_prim_length] = 0; 
ag B58 mark_one = dbg$push_tempmem(); 
714 B¢6 dbg$sta_symkind(.symid, kind); 
715 $ 7 IF .kind FOL rst$k_variant 
716 28 THEN 
717 Ho BEGIN 
718 830 LOCAL 
719 th tagid,tag_val, 
720 35 tag_name : REF VECTORC.BYTE), 
721 83 variant : REF rst$var_entry; 
rs¢ 834 MAP symid : REF rst$entry; 
72 835 
724 836 variant = 
725 
726 
727 
728 
729 
730 
e 1 
738 
35 
i 
8 


ee ee ee ee ee a a ea ee a ee ee ee a a ad ad od dd 
PPT E BBE EEE EE EAA 


0.09 09 00 09 Gp 09 0d Gd OD Od Gd G0 Cd Os CD 00 OD 09 OD GO GD CD 


DEX DA AD DMD SIS PADD SMM & BB ET & SB BAA B&B IAAI 


7 

7 REMQUE (.prm_descCdbg$l_prim_bl , dummy); 

7 8 END; 

7 9 END; 

7 0 IF .variant EQL 0 

739 1 THEN 

740 § BEGIN g 

741 dbg$print(UPLIT(ZASCIC ‘!AD*),52,UPLIT BYTE('CVariant Record omitted - null or illeg 
ng 54 gogsneul inet); 

74 55 EN 

744 2$ E 

745 5 BEGIN ; : 

746 58 eopsbultd_pr teary .s bnode( .pre_desc rst$k_variant,O,rstSk_type_variant,0,0); 
747 59 subnode =~.prm_desc(dbg$l_prim_bl ink); 


A 
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i 


1§ 425-1986 
0 12-Sep-1984 


subnode(db Lapnvar_ta id 

subnodel db . index 

subnodeldb 

subnodeldb 
db 
db 


<9 
@ 
o 
‘< 
> 
Cc 
mm 
“” 
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ee 


.tagid; 
uP ° 


subnode variantirst$a_var_complstJ; 
subnode as! poyar dstotr variant(rst$l_var_dstptrd; 
dbg$print(UPLIT(ZASCIC ''AD"),30,UPLIT BYTE('Variant Record with Tag Value ')); 
dbg$print_value(.val_desc,.radix, .dbg$gl_sign_flag); 
cous int_aggreg te(.orm_desc rs go 
E(.prm_descldbg$ _prim_blink ,dummy ) ; 
END 
SE 
BEGIN 
dbg$sta_symtype(.symid, fcode,typeid); 
dbg$build_primary_subnode(.prm_desc,.kind,.symid,.fcode,.typeid,0); 


dbg$collect(.prm_desc); 
IF penadescldbgSv.dhdr_aggr) 


true; 
“Varvantfratgecvarcomptst : 


EL 
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BEGIN 
dbg$print_identifier(.prm_desc,0); 
gbasor int _eggregate( .pra_desc..radix); 


IN 
LOCAL name : REF VECTORC,BYTE); 
op 9este_axgnene(.s mid,name); 
IF .mameCO) NEQ 0 THEN 
BEGIN 
dbg$print_identifier(.prm_desc,0); 
dbg$printTuPLIT BYTE(ZASCIC "!AD!_*),1,UPLIT BYTE(':")); 
dbg$prim_to_val(.prm_desc,dbg$k_value_desc,val_desc); 
dbg$print_value(.val_desc,.radix, .dbg$gl_sign_flag); 
 Phapeata 
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END; 
REMQUE(.prm_descCdbg$l_prim_blink], dummy) ; 
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8 ND; 

786 dbg$pop_tempmem(.mark_one); 

787 END; 

788 END; 

789 

790 COTHERWISE): 

a4 SIGNAL (dbg$_illtype); 

798 TES; 

794 906 

795 90 subnode[ bgSy_pnode_eval = false; 

796 908 prm_desc(dbg$v_dhdr_aggr = true; 

797 909 prm_descldbg$b_dhdr_k ind = .subnode([dbg$b_pnode_kind); 

798 910 prm-desc(dbg$b_dhdr_fcode]_ = .subnode(dbg$b_pnode~fcode); 

799 911 prmedescldbg$l_dhdr ty eid) = .subnode dbg$l_pnode-typeid): 
800 916 dbg$print_control (dBg -prtset_rlmargin,~ ); | Reset indentation 
801 91 END; r End of dbg$print_aggregate 
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DBGSPLIT,NOWRT, 
<13>\Cempty arrayJ\<0><0> 


\CVariant Record omitted - null or illega\ 


Ys ey ValueJ\ 
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\Wariant Record with Tag Value \ 
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R7 R8B,RI,R10,R11 


DESC, R8 
DBGSGL_CURRENT_PRIMARY 
#0, DBGSNEQL INE 


cs Met A eet bey 
~S 


#1. 10(SUBNODE) 
428 


RS. 1. 28 
#0. DBGSPUSH_TEMPMEM 
ONE 


See Ge Se Se Se Se Se Se Se Se Ge Ge Se Ge Se Se Se Se Se Se Se Se Se Se Be Se Be Se Se Se Se Be Be & 


000000006 


000000006 


000000006 
03 000000006 


000000006 
000000006 


FF28 


000000006 


FD35 


0000V 
000000006 
000000006 


06 OA 


F 
000000006 
08 


Nn 
oo 


Oo 
=D 


04 
08 


00000000" 
00000000" 


1¢ 


24 
83 


Zi 
2c 


18 
FF 


10 A6 


o 
WMO LVIMND FF $10 PONM PP OMOO FP POOMD PSP OW POPOMOM LOIS FP OM NMOWOOM OM & & SIO 


ANOWS OME & EEO EN" DOWUM OOWO MM VM OM Wn = MIM COPMIOOM OOM — OO OOmmnmmiua 


oc A 
000000006 


oo ~ 
Se ad 


99399399 39 9 939 3 9 993939399393 3S SS SS BOOS OOS SOSOSOSSSSSSOSSOSSOOSSOSSOSOSOSSOO 
DAN MOD LOM & NWO OFS DUNG NAM OW WMO FS OW FW HOUT SW & COUN 

we) 

ws 


ye Pg OT pay to WwHHNMMMMMNMOOCVIVOOOOWWOr>r> SSISVSS ee 


9 OOO979 BOM — OM $$ SF ONS BVO "9 OO" 00-9 TN O0 O- TIO OM OIF MAM THO NONCVOCO™N 
Wh OO MVM oS SF PWOWWOIVIITDS YS S MD M9 8 -DO0 OWS F008 —-WoWIVTVT00 FW 
COOOSCOOCGOOOCOOCOGCOOSOCOCOCOOSGOSOOOOOOOCOCSOOOOGOOOOOSGOSOOOOOOOOOOOOOO 


SOOOOCOSOSOOCOSOSOCOOSOSOSSSOSSSSSSSSCOSOOSOSOSOSOSOOSOSOSOSOOSOSOSOSOOOOSOOOSOOSOOoOO 


AX-11 Bliss-32 V4.0-74 
DEBUG. SRC JDBGVALUES .B32;1 


BGSSTA_SYMTYPE 


, DBGSBUILD_PRIMARY_SUBNODE 


#1, DBGSCOLLECT 
#1, DBGSGV_CONTROL*+1, 5$ 


#0, DBGSPUSH_TEMPMEM 
RO, MARK_ TWO 

= (SP) 

#2, DBGSPRINT_IDENTIFIER 
4(R8), 6$ 

RADIX 

a, DBGSPRINT_AGGREGATE 


9$ 
P.AAE 


P. AAD 
#3, DBGSPRINT 
FCODE, #21 


° =(SP) 


VAL_DESC 
#122, -(SP) 


#3, DBGSPRIM_TO_VAL 
DBGS$GL_SIGN_FLAG 
RADIX 


VAL_DESC 
#3, “DBGSPRINT_VALUE 
#0, DBGSNEWL IRE 
MARK TWO 

#1, BBGSPOP_TEMPMEM 
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FCODE 
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#6, DBGSBUILD_PRIMARY_SUBNODE 
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#3, DBGSPRIM_TO_VAL 
VAL DESC RO 
2(RO0), fAG_VAL 
#*M<RO.R7> 
#2, DBGSSTA_VARIANT_SELECT 
RO. VARIANT 
a24(R5), DUMMY 
RIANT 
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9C SHAB NAME ; 1887. 
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oe OP Sheen PUSH” ai : 1891 
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1bSe 1984 02:45:26 AX-11 Bliss-32 V4.0-74 P 7 
14-Sep-19 4 93:47:82 DEBUG. SRC JDBGVALUES .832;1 29 28) 


GLOBAL sou ine DBGSPRINT_VALUE(val_desc: REF dbg$valdesc,radix) : NOVALUE = 
BUILTIN ACTUALCOUNT ,ACTUALPARAME TER; 
LOCAL 
sign_flag, 
save_filag, 
vms_desc : dbg$stg_desc; 


sign_flag = (actualcount‘) GTR 2 AND actualparameter(3)); 
save_flag = (actualcount() LSS 4 OR actualparameter(4)); 


IF .save flag THEN gb $save_val(.val_desc); 
ch$move(T2,val_desc(dbg$a_value_vmsdesc),vms_desc); 


IF .val desc(dbg$v_dhdr_format] NEQ 0 THEN 
SELECTONE .val_descCdbg$v_dhdr_format] OF 
1]:BEGIN ! Condition Value 
~ LOCAL 


msgbuffer : VECTOR (256,BYTE), 
msg_desc : dbg$stg_desc; 


iho 
Virw 


WWW ALANA AITO ROU RIND 2 = SS IO 


msg_desc(dsc$b_class = dsc$k_class_s; 

msg_descldsc$b_dtype = gee Sk_dtype_t: 

msg_desc(dsc$w_length] = 256; 

msg desc(dsc$a_pointer] = nsabut fer: 

SGETMSG(MSGID “= .val_desc(dbg$l_value_value(), 
MSGLEN = msg_desc dsc$wolengthi. 


BUFADR = msg desc); 
abgSor int (UPLIT BYTECZASCIC *!AS'),msg_desc); 


FUN SSeNONE WN HOODIA ME WI ODS 


uw 


(2,3): 
BEGIN 
BIND format_tab 
header_one 
header_two 
mode_names 


Y*) 
c Che tp FPD 1S CURMOD PRVMOD IPL‘), 
EC’, "SUPR’,"USER') : VECTORL4,LONG); 
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dbg$newline(); 

eyecare tact roraet tab); ‘ 

IF NOT .val_descldbg$v_dhdr_format] THEN dbg$print(header_one); 

dbg$print (header_two); 

dbg$newline(); 

dbgSprint(format_tab); 

If NOT .val_descldbg$v_dhdr_format) 

THEN dbgSprint(UPLIT BYTETZASCIC “!2UL!4UL!3UL!4UL 'AD '!AD!SUL"), 

- (val desc(dbg$l_value_valueQ))<31,1,0>, 
- (val _descldbg$l_value_value0))< 9.1, >, 
-(val_descldbg$l_value_valueQ))<27,1,0>, 
» (val _descldbg$l_value_yalue0J)<26,1,0>, 
4,mode_names[ .(val_desc(dbg$l_va ue_va}uedi}< $.3.0>1, 
4,mode pense -(val_descldbg$l_value value )<22,2,0>], 

. Wal_descldbg$l_value_value07)<16,5,0>); 
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AX-11 BLi 
DEBUG. SRC 


j 


s-32 v4.0- 
DBGVALUES. 


3: 1 9 1971 4 dbgSprint(UPLIT BYTEC(ZASCIC *! caked sekeal 
3 1 1 4 4 . (val_descldbg$l_value_valueQ])<7,1,0>, 
3 1 ¢ 1975 4 - (val-descldbg$i_ -value. value }<g-1. >, 
3; 1 1974 & . (va ~descidbg ue_valueQj)<5,1,0>, 
3: 1 1975 4 - (val-descldbg$l_ “selves velue <4,1,0>, 
: 1865 1 16 4 - (validescldbg$l-value_valueQJ)<3,1,0>, 
> 1977 4 - (val=desc(dbg$l-value_value0J)<2,1,0>, 
7 1978 4 - (val-desc(dbg$l-value_valueQJ)<1,1,0> 
: 1 8 197 . (validescldbg$l“value-value0J)<0,1,0>5; 
3 ; ; : END; 
: 1871 12 ¢ COTHERWISE): SIGMAL (dogs. | i, -UPLIT BYTE( 
; : i + ? ses ZASCIC ‘DBGVALUES DBGSP f VALUE = unknown format code')); 
s + ts 1985 RETURN; 
: ND; 

1875 1986 END 
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i Radix will come in as something other than default if a redty was 
i enn Ne utly specified in one command as in EX/HEX or it’ a radix 
i override was specified as in SET RADIX/OVERRIDE. 


iF .radix NEO dbg$k_default 


ELS dbgSprint_value_as_integer(vms_desc,.radix) 
BEGIN 


"unless this is a ‘DEBUG’ descriptor (created because a type override 
i switch has been given), we first see if we can find an 
x Language-specific formatting rules. 


if (. or we tts nt fcode] NEQ rst$k_type_ descr? 
R (.val_desc _value_class) NEQ dsc$k_class_z) 
* THEN. iF “Gbg8lenguade. format(.val_desc) THEN RE TORN; 


i we get here if there are no Language-specific formatting 
: rules @ spp l iseble to this data item, either because this 
! is a ‘‘DEBUG'’-built value descriptor or because there are 
fo applicable language-specific format exception entries. 
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size,n_elems,elem_vect : REF VECTORC,LONG); 


intRee® noR-§ ont. val A deect omt dhdr_typeid],n_elems,elem_vect,size); 
Re 4 -n_elems-1 


900 
901 SELECTONE -val_desc(dbg$b_dhdr_fcode) 
308 OF frstsk_t } 
rs pe_enum): 
90% BEGIN 
905 LOCAL 
906 
907 
908 
909 


PocAL adr_kind, rae trs : V CTORES. LONG); 
IP rad sy yavalue(.é em_vectl.e] ,adr pers adr_kind 
adr wee dbg$k-val_literal THEN $1 ENAL (doo$. uniaplent): 
* ae y~ 5 0})<.adf_ptfsCiJ,.size,0> EQL .val_descldbg$l_ value _valueQ] THEN 


dgépr int. symbol _name(.elem_vectl.e]); 


END; 
END; 
be 


‘. Warn value out of range for enumeration type. 


SIGNAL (dbg$_ enumrange); 
ghgserint. value_as_ nteger(vms_ desc); 
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(rst$k_type_blifid): 
BEGIN 
LOCAL 
count, 
fields: REF VECTORC,LONG); 
fields = .val_desc(dbg$l_value_pointer); 
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count = elds(0); 
dbgtor ini (UP 1 IT BYTE (RAS IC "C")); 
INCR to .count-1 00 


wu 


nt cue. LIT ME Uh, ts -fieldsC.eJ); 
Nt(UPLIT BYTEC 


esi nt(UPLIT BYTE( eA ASCIC Ub), -fields€.count]); 
PLIT BYTECZASCIC 'J3°)); 


“ae _type_set): 
dbg$print_set_value(.val_desc); 


Crst$k , type. file): 
i. _» he print the information that this is a file pointer. 
dbg$print(uPLIT BYTE(ZASCIC ‘file variable’)); 


Se Ge Ge Ge Se Ge Ge Fe Se Ge Ge B85 Sse Ge Se Ge Se See 

COOODOOODOOOOLOOOOOO 

SSSSEPESLS SPP SSO LoS 
PPPS SISISIVIN E 

WR O OONO VE UW "OOOO 


WN "CO OONOU Sw OO0O 


PNA NAA NN E B&B EINE EE 


N15 
vou-000 1eo$ep-19ee Vest7:se — EoeeuG.SmcSosavaLugs.o3s;1 740% 28) 


; 1955 4 3 COTHERWISE): 

3 13 $ 92 2 BEGIN 

; 1958 89 4 ' Here if there ere, ne special formatting rules for this FCODE. 

3 1959 re 4 ' Just look at the DTYPE in the eee ptor, and print the value 

3; 1960 BS 4 ! in @ type-dependent format. er, we first have to ensure 

3 1393 O71 ? that we have a valid CLASS field” for LIBSCVT_DX_Dx. 

; 1308 % 4 if .vms Sag Me oe class] EQL dsc$k_class_z THEN vms_desc(dsc$b_class] = oc _class_s; 
; 1308 A : CASE ey" desc(dscSb_dtype] FROM dbg$k_minimum_dtype 10 dbg$k_maximum_dtype 0 
3 1368 O75 4 ct 

: 196 ug 4 i The first few case gore tes ere for the various types of 

3; 1968 077 & ' ASCII text (ASCIC, ASCIZ, 

; 1969 078 4 i These all get translated to Ascii (DTYPE dsc$k_dtype_t). 

: 1970 079 4 ie 

3; 1971 080 4 

: 1376 081 4 Cdsc$k_dtype_vt]: 

3; 197 oes : BEGIN 

3 1974 08 vms_desc(dsc$w_length] = .(.vms “fescLascsa- pointer])<0,16,0>; 
3: 1975 084 5 vms_desc(dsc$a_pointer) = 2+.vms_descldsc$a_pointer); 

3: 1976 085 5 vms_desc(dsc$b_class = dsc$k_class_s; 

3: 1977 086 : “ae “desc(dsc$b_dtype = dsc$k> “eevee t; 

3: 1978 087 sbgtor int. vms_value(vms_desc); 

3 1979 088 4 

: 1980 089 4 

3; 1981 090 4 Cdsc$k_dtype_ac): 

; Hb 1 091 5 BEGIN 

; 198 092 5 vms_desc(dsc$w_length) = .(.vms “fescldscsa- pointer])<0,8,0>; 
: 1984 093 «5 vms_desc(dsc$a_pointer) = i+. yms. “desc(dsc$a_pointer); 

3; 1985 094 5 vms_desc(dsc$b_class)] = dsc$k_Class 8s 

3 1986 095 «5 vms_descldsc$b_ “Sty pe] = dsc Sk_ “étype: t; 

3: 1987 2096 § gbgtor int. vms gal uetvas desc); 

3; 1988 097 4 

: 1980 $99 Cdsc$k_dt } 

3 sc ype_azj: 

3 1994 100 5 N 

; bo 4 2101 ee LOC; 

3: 199 198 LOCA engrn: 

3 1994 10 toc CaREr 0): gvet tengthd = va Length],.vms ofesc(dgcSa_ peteters; slength); 
3: 1995 104 vms_desc dsc $w = .vms_descldsc$w_length ength 

; 1998 105 vms_descldsc$b b-cfogs = dsc$k_class_s; 

3: 199 106 une “descldsc$b_dtype = deck “dtype_t; 

; 1998 10 gogtor int. vas_ Jalue(vms_ desc); 

3: 1 108 4 
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v04-000 14- Sep-19 4 934 3:88 DEBUG. SRCJDBGVALUES. 535; 31 . (26) 
; 2001 109 4 bgecsk _dtype_b,dsc$k_dtype_bu,dsc$k_dtype_w,dsc$k_dtype_wu, 
3 ob 119 2 dscsk- koatypet Ly rdsc$k_dt “Gtypen ws ,ds¢$k “type q,dsc$k “atype- qu, 
; Oe 
: ee 116 : “dbg$G0_ radtaCdbgtorce radix Output] NEQ dbg$k_decimal 
; Ooe We : dbg$print_value_as_integer(vms_desc) 
; 3008 118 : dbg$print_vms_value(vms_desc, .sign_flag); 
: 2010 118 4 Cdsc$k _dtype_f ,dsc$k_dtype_d ,dsc$k_dtype_g ,dsc$k_dtype_h , 
; 2011 119 4 nGtype” fc, dsc$k “Stype” de .dsc$k “Gtype- a dsc$k “Gtypech he , 
3 Sots 120 4 et he “dtype_ nl,dsc$k~ dtype_nlo,dsc$k_dtype_nr,dsc$k_dtype_nro, 
3; 201 121 4 dsc$k_dtype_nu,dsc$k_dtype_nz *dsc$k 50° yPe. 38: ,dsc$k _dtype_f): 
; 2014 1 ¢ 4 dbgSprint_vms_valie(vms_desc, .sign_f 
: $016 134 [dscSk_dtype. 21): 
3 sc 
: 2017 3195 : SbES ine decodes. vms_desc(dsc$a_pointer],true, false); 
5 2019 $155 4 Cdsc$k_dtype_zem): 
; sos $158 : dbg$ins_decode(.vms_desc(dsc$a_pointer],true,true); 
; 2038 $180 Cdsc$k_dtype_t 
; 202 2131 6 sbaseciattrormat. AC, CIF .C. vas piesc Cdsc$a printer)? 
3; 2024 $136 5 THEN UPLIT BYTE(ZASCIC ‘Tr 
3; 2025 2133 4 ELSE tit 6 BYTE(ZASCIC Fotser))): 
; sess 2134 4 
; 2027 2135 4 Cdsc$k agtype adt): ' a002 
: 2028 2136 4 dbg$print_vms_value(vms_desc); ' adod2 
3 $0e8 2137 4 
; 2030 $138 4! Cdsc$k_dtype_dsc]: 
; soe. 139 4 
3; 2032 2140 4 CINRANGE ,OUTRANGE): 
3 2033 2141 4&4 dbgSprint. value_as_integer(vms_desc); 
; 2034 gle 4 S; “CASE vvm$_descldsc$b_dtyped 
3; 2035 214 3 END; 
; 2036 2144 3 TES; ! SELECTONE .val_descCdbg$b_dhdr_fcode] 
; 2037 2145 2 END; 
; 2038 2146 1 END; ! End of ‘dbg$print_value' 
PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
53 41 $i 3 p00 P.AAL ASCII oe : 
5F 21 O2 00085 P.AAM: .ASCII ; 
20 53 49 20 44 50 46 ef 50 54 20 50 4D 43 IF tte P.AAN eASCII S$} s\enp TP FPD IS CURMOD PRVMOD IPL\ 3 
49 20 44 4F 40 56 52 50 20 44 4F 4D 52 22 $3 BOR : 
20 4E 20 54 20 56 49 20 55 46 2 36 $ 6 ‘3 GOAB P.AAO: .ASCII <19>\ DV FUIVTNZVC\ 
4c OF 48 008° P.AAP: ASCII \KRNL\ ; 
43 4 4 00C ASCII \EXEC\ : 
2 22 5 2 00C4 eASCIT = \SUPR\ : 
45 53 5 8 c8 ASCII WHER} ° 
$0 $1 4C 55 33 i 4C 55 34 21 4C€ 3 35 21 fF CC P.AAQ eASCIT <ST>N\I2ULI4UL!3UL!4UL «AD 'AD!SUL\ PF 
5 21 44 41 21 20 20 20 44 41 21 20 2 of 22 Bock : 
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P.AAR: .AS 
P.AAS: .AS 
A 

P.AAT: .A 
P.AAU: .A 
P.AAV: .A 
P.AAW: A 
P.AAX: .A 
eAAY: A 
P.AAZ: .A 
P.ABA: .A 
FORMAT_TAB= 
HEADER_ ONE= 


HEADER TwO= 


MODE _NAME S= 
«EXT 


~PSECT 
- ENTRY 


1$: MCOM 


XDBCSPRINT. VALUE = unkno\ 


\wn co code\ 
<1>\C\ 


>\J\ 
<3 tite variable\ 


NON nnnnnn 
AOAMOOOON 
bet eg Be be be 
ae nd ban 0 a Bs es Be at 


DBGSCODE ,NOWRT, 
DBGSPRINT VALUE, Save R2,R3,R4,R5,R6,R7.RB,~; 
sintls afi! 


SIGN_ FLAG, RO. Sion. FLAG 


#17694976, MSG_ 
a MSG- 


Pete ee See Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Be Se Se Se Se Se Be 


Page 73 


(26) 


1914 


; 1923 


; 1924 
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Woe-000 Vex8eb-1984 13:17:5¢  EpgauG. SRCIDBGVALUES 639; 1 , - 
meer 10 AE 9F 00088 USHAB MSG_DESC = 
re AB 3 O88 PUSHAB PAARL : 
0260 31 s008E Ry AOS ; 1948 
02 D1 000 5 : 
BE ee ! 
03 m8 D1 00099 98: CHPL Re, #3 ; 
68 09 FB Hes CALLS #0, DBGSNEWLINE : 1985 
69 1 8 O0A3 CALLS #1, DBGSPRINT 1958 
= 03 AS SF Oooas PUSHAB HEADER ONE ; 
69 OF OP Boca as BUSHAB MEhoPR TOOL ; 1959 
23 AB OOF AF 8$: SPRINT r 
é3 00 FB oooRs CALLS A: DBCSNEUL INE 2 19¢7 
ee) eee ~ 
38 52 —8 OOOBD : ' 
51 20 Ab YE 000C0 cry tae hae BIRT). <(SP) pits 
7E 02 Al 05 90 EF 900ce XTZV We, #2, (R1), RO : 
50 . " 37 ABkO BF OOOCE PUSHAL MODE _NAMESCROS 
86 EF 00005 EXTZV #0, #2, 3(R1) « RO Beages 
50 apes 37 A840 DF 00008 PUSHAL RODE_NAMESCRO ; 1969 
Th EF O00EI EXTZV #26, #1. (RID, =CSPD ; 
7e 6) a 1B EF O00E6 EXTZV OP, AI, (RID. ~C8P) : 
7E 61 01 2 EF 8 OEB EXTZV #30, #1, (RI), -(SP) : 
7E 61 01 1E EF 38 E T2v. #31 (R1), =(SP) : 
: 61 01 1F EF O00 EX aOP : 1963 
. wo Se ee CALLS, #10, DBGSPRINT : 1969 
69 Oe OP Spore 98: HOV» SECRGSe RO a 979 
60 ot 20 00 eF OOF EXTZV i, a, (RQ). =ttps : 1978 
7E 01 EF 00104 EXTZV #1, #1, (RO), - : 1977 
7E 60 81 02 EF 00109 EXTZV #2. #1, (RO), =(SP) Bu 
7 60 01 O§ EF bOlo EXTZV #3, #1, (RO), =(SP) : 1975 
7E 60 3 04 EF 0011 EXTZV #4. #1. (RO). -(SP) : 197% 
7E 60 01 0S EF 0011 EXTZV #5, #1, (RO), (SP) : 1973 
é0 i af fr oois EY Fe ts tabs: = : 19% 
mt 60 01 07 gf 3 § Sie p KAR” . ; 1971 
69 8” 09 FB OOISA CALLS #9, DBGSPRINT E1931 
76 AB SF OOI3E 108: PUSHAB AAS 
BF Bb ols PUSHL #164706 
6A especie 08 PB 1 9 carl #3, LIBSSIGNAL : 1930 
08 Ac DT ; 118: CPL = RADIX, #1 : 
01 3 00141 BEQL ==-'12$ : 1994 
RE DD 00143 PUSHL_ RADIX 
RB RRS RR Rete ues, : 
o000v CF Oe fP Ries RET . Sei : 


16 . . oo o = 
esau Penal RR 9, 


4 DEBUG. SRC JDBGVALUES.8 (26) 
03 06 AS 91 OO14F 12%:  CMPB 6(R6), #3 : 2002 
05 1 1 : BNE 3 ; 
17 a6 95 001 TSTB é (R6) + 2003 
D1 1 BEQ 4$ : 
6 DD 0015A 13$: PUSHL R6 + 2004 
000000006 00 1 FB 1 ¢ CALLS #1, DBGSLANGUAGE_FORMAT : 
1 0 16 BLBC ~=—s_-aRO,.- «148 : 
4 0166 RET ; 
50 06 Ab 9A 00167 148 MOVZBL 6(R6), RO + 2011 
04 50 91 00168 CMPB RO rT : 2013 
1 018 BNEQ 18$ : 
E pd 01 PUSHL SP + 2018 
08 AE 9F 0017 PUSHAB ELEM _VECT ; 
10 AE 9F 0017 PUSHAB N_ELEMS : 
08 A6 DD 00178 PUSHL  8TR6) : 
000000006 00 04 FB 0017B CALLS #4, DBGSSTA_TYP_ENUM : 
52 1 CE 0182 MNEGL #1 : 2024 
9 11 0018 RB 17 ; 
OC AE 9F 00187 158 USHAB ADR_KIND : 2022 
£8 AD 9F O018A PUSHAB ADR~PTRS : 
0c ESE DD 90180 PUSHL @€LEM_VECTCE] ; 
000000006 00 03 FB 00191 CALLS #3, DBGS$STA_SYMVALUE : 
01 OC AE D1 00198 CMPL ADR_KIND, #7 : 2023 
09 13 0019C BEQL 16$ F 
00028800 8F DD 0019E PUSHL #165888 ; 
6A 01 FB OO1AL CALLS #1, LIBSSIGNAL ; 
29) E8 BD 6E EC AD EF OO1A7 168: EXTZ2V ADR_PTRS+4, SIZE, @ADR_PTRS, RO > 20246 
20 Ab 50 D1 OO1AE CMPL RO, ~32(R6) : 
OC 12 001B2 BNEQ ~=s:«17$ : 
04 BE42 DD 00184 PUSHL @ELEM_VECTCE] + 2026 
000000006 00 01 ? ate CALLS #1, DBGSPRINT_SYMBOL _NAME 3 2025 
C2 52 08 AE F2 ita 17$:  AOBLSS N ELEMS, E, 15$ : 2019 
000286(B 8F dD 001C5S PUSHL #165579 : 2033 
6A 01 FB 001CB CALLS #1, LIBSSIGNAL ; 
OOFO 31 OOIcE BRW > 2034 
3 30 91 00101 18$: CMPBseRO, #14 : 2037 
7 if 0014 BNEQ 21 : 
54 18 Ab DO 00106 MOVL 4(R6), FIELDS > 2063 
53 64 DO 001DA MOVL (FIELDS), COUNT > 2064 
00A6 CB 9F 001DD PUSHAB P.AAT > 2045 
69 g1 FB OO1E1 CALLS #1, DBGSPRINT : 
2 D4 O01E4 CLAL : > 2046 
17 «11 O16 BRB 0$ : 
448 DD OO1E8 19$:  PUSHL (FIELDS)CE) + 2048 
00A8 ¢ 9F OO1EB PUSHAB P.AAU ; 
69 } FB OOTEF CALLS #2, DBGSPRINT ; 
OOAC 9F O01F2 PUSHAB P.AAV > 2049 
69 1 FB 1F6 CALLS #1, DBGSPRINT ; 
EB 52 F 1F9 208 AOBLSS COUN 19$ ; 3046 
644 BD 1FD PUSHL (FIELOS)ECOUNT) > 2052 
OOAF ¢ F PUSHAB W ; 
69 FB CALLS #2, DBGSPRINT : 
0083 ( 7 7 BUSHAB P hax : 2053 
08 91 21$:  CMPB i rT.) > 2056 
bn 12 10 BNEQ 228 : 
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14-Sep-1984 DEBUG. SRCJDBGVALUES. B35; :1 (26) 
FG OAD F8 8 91 278: MOVW a MS DESC 86 VMS_DESC 3 2083 
HS RS ee El wise : ie 
Fo soAD Fg BD 98 9C 288: MOVZBW avMS DESC eA, VMS_DESC : 99 
é AD 06 Al INCL MS_BESC+4 3; 209 
A 1 AG RRB 3 2094 
F8 BD Fe AD 9 3A A6 298: LOCC #0, VMS_DESC, @VMS_DESC+4 : 2103 
F4 AD Ag AC SUBW2 soL NGTH. AY VMS DESC + 2104 
F6 AD O10E 8F 8 BO 30$: MOVW #270, VMS_DESC+2 : 106 
6A 11 86 BRR 3 210 
0A 000000006 00 91 B8 31$ CMPB BGSGB_RADIX*1, #10 : 2112 
09 13 9 GF BEQL 3 
Fe AD OF C1 328: PUSHAB VMS_DESC 3 2116 
0000v CF 01 fe 9 ca CALLS #1, DBGSPRINT_VALUE_AS_ INTEGER : 
57 0D 09 CA 33S: PUSHL SIGN_FLAG : 2122 
F4 AD OOF cc PUSHAB VMS_BESC 3 
0000v CF 02 FB 96 CF CALLS #2, DBGSPRINT_VMS_VALUE 3 
04 00204 RET ; 
7E D4 002D5 348: CLRL -(SP) 3 2125 
02 11 00207 BRB 36$ 3 
01 DD 00209 35$: PUSHL #1 : 2128 
01 DD 00208 36$: PUSHL : 
F8 AD DD 002DD PUSHL VMS_DESC+4 : 
000000006 00 03 FB 9 Eg CALLS #3, DBGSINS_DECODE 3 
07 Fg BD 9 002E8 37$: BLBC @VMS_DESC+4, 38% : 2131 
50 00C¢ C8 9E OO2EC MOVAB P.AAZ, RO 3 2132 
05 11 06 Fi BRB : 
50 00C8 C8 9E O02F3 38$: MOVAB P.ABA, RO : 2133 
50 0D bocrs 9$: PUSHL : 
FF7B CB OF OO2FA PUSHAB FORMAT_AC 3 2131 
69 02 FB Ooere 408: CALLS #2, DBGSPRINT : 
04 06 01 RET ; 
F4 AD OF 030 41$: PUSHAB VMS_DESC 3 2136 
0000v CF 01 FB 0030 CALLS #1, DBGSPRINT_VMS_VALUE : 
04 0030A RET 3 2146 


; Routine Size: 779 bytes, Routine Base: DBGSCODE + 1116 
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H 16 
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voe~000 14-Sep-19 4 95:93:80 DEBUG. SRC JDBGVALUES .832;1 : (27) 
sone eee DBGSPRINT_VALUE_AS_INTEGER(vms_desc: REF dbg$stg_desc) : NOVALUE = 
0 ih ACTUALCOUNT ,ACTUALPARAMETER ,MOVCS; 


04 
041 
radix, 


radix_override_flag, ! TRUE if radix override was applied 
data_bytes, 


PRES 


WO ODONOUES WN" OOONOUS WN Oo 


data_buff : VECTOR (512+4,BYTE], 
digit_value : BYTE, 
text_buff : VECTOR (512*9,BYTE); 
BIND digit = UPLIT BYTE('0123456789ABCDEF') : VECTOR (16,B8YTE); 


radix_override_flag = FALSE; 
dF ectualcountt) GTR 1 


RRRRAAARARNARAR ERR EERE 


morrrornorn 


WOOO WOO DO OOD 000009 09 09 09 09 SI NIN SIN NNN NP PAA AA AAA A MAMI ES 


H ‘ 1 

3 0 

: 

d 

: : 

; 8 

: y 

; 0 

: 

: i 

: 

; 8 BEGIN 

3 9 radix = actualparameter (2); 

; 0 IF .radix EQL dbg$k_default 

; 2064 1 THEN 

; 2065 § radix = dbg$nget_radix() 

3 2066 ELS 

3; 2067 4 radix_override_flag = TRUE; 

; 2068 5 

; 2069 6 2 ELSE 

; $4 i radix = dbg$nget_radix(); 

; Ore 3 text_index = 512*9; 

> 2074 1 datsa_addr = .vms_desc(dsc$a_pointer]; 

3 Oe : ¢ IF dete size = dbg$data_length(.vms_desc)) GTR 512*%BPUNIT THEN 
: 3077 184 ' weee SIGNAL (truncation) AKHTAR KARA KeKRKAeeAHeHe 
: B78 : 5 data_size = 512*ZBPUNIT; 

; $080 1 ; data bytes = (.data_size + (Z%BPUNIT=-1))/ZBPUNIT; 
: 2081 188 MOVCS(data_bytes,.data_ addr, ZREF (0) ,ZREF (51244) ,data_buff); 
; 208 189 F (.data_Size AND (Z%BPUNIT-1)) NEQ 0 

; 208 190 THEN gate_buf ti .gata_bytes-1) = 

; oes : 1 .data_buffl.data_bytes-1] AND NOT (-1*(.data_size AND (%BPUNIT-1))); 
; 20 198 SELECTONE .radix OF 

; 208 194 E 

3; 2088 195 dbg$k_decimal): 

3; 2089 1 $ BEGIN 

3 091 : 3 SELECTONE -vms_descCdsc$b_dtype] OF 

: 209 199 dsc$k_dtype_bu,dsc$k_dtype_wu, 

3; 209 00 dsc$k_dtype_lu,dsc$k_dtype_qu, 

3 2094 01 dsc k_dtype_ou.dscbk dtype_z, 

: 2095 0 dsc$k_dtype_v. dsc k dt ype wud: 

3 2096 IF” .radix_override_tlag 
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3 7 4 THEN 

; 038 03 : IF _,.(data_buff)<.data_size-1,1,0> THEN 

; 2099 g 4 BEGIN 

; 190 07 4 Gbasor int (Format AD. 1 -UPLIT BYTE('=")); 

3; 2101 08 4 INCR m FROM O 10 Gets bytes-1 DO 

: 106 09 4 IF ,data_buffC.m) NEG 0 THEN 

; 210 10 5 BEGIN 

: 2104 11 data_buffC.m) = -.data_buffl.m); 

: 2105 \§ INCR n FROM .m+1 TO .data_bytes-1 D 

; 21 1 data_buffl.n] = NOT .dafa_buffl.n); 

$ 199 14 EXITLOOP; 

5 198 15 4 END; 

: 2109 1 4 fg dy Ae: PA yay oo bow | NEQ 0 

; ‘ es-1] = 

; Wh 18 d .data7buff gees -eyscsii AND NOT (=1*(.data_size AND (%B8PUNIT-1))); 
3; 211 1 H 

3 118 $39 

3 2116 $$) COTHERWISE): 

3 ii? $s¢ i IF Agata but t)<.dete_size-1,1.0> THEN 

> 2117 2206 4 dbg$print(Format_AD,1,UPLIT BYTE('=")); 

3: 2118 2 25 4 INCR m FROM 0 TO .data_bytes-7 DO 

3 2119 22 $ : trie mit a7 NEG 0 THEN 

; $134 $356 5 data_buffC.m] = -.data_buffl.m); 

3 21 2229 5 INCR m FROM .m+1 TO .data_bytes-1 DO 

3 158 2 % 5 data_buffC.n] = NOT .dafa_buffl.nJ; 

se BE ppiter 

: 158 $535 4 IF (data size AND (RBPUNIT~1)) NEQ 0 ; 
: -data -1) = 

; $15 2035 4 om .date-buff “data“bytes-11 AND NOT (-1*(.data_size AND (2%BPUNIT=-1))); 
3 2129 . 2236 ND; 

ie BUG = 

; 136 $$7p ; WHILE (deta_size = .data_bytes) GTR 0 DO 

; 134 241 4 LOCAL digit_val; 

Be Bee rene 2 8 

; i al = 0; 

; 139 $ste ¢ betR a FROM -data_size-1 TO 0 DO 

: 139 46 5 digit_val = (,digit_val*8)+.data_buffl.d); 

; 2140 349 IF (data bufft.dd = digit val/10) NEQ 0 

> 2141 48 3 THEN IF .data_bytes EQL 0 THEN data_bytes = .d+1; 

3 | $e8 ? M it.val = .digit_val - 10*(.digit_val/10); 

: ae 51 4 text_buf f((text_index=.text_index-1)] = .digit_val<0,8,0>+'0'; 
: 126 34 dbg$pr int (Format_AD,512*9-. text_index,text_buff(.text_index]); 
ie Be ‘St 

: 214 5 : 

3 13 2 dbg$k_binary]: byte_size = 1; 

3 2151 28 dbg$k_oct U3: byte_size = 3; 

: 136 5 dbask hex): byte_size = 4; 

: 215 60 ! OTRERDISE): 
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; } ¢ $} TES; 
li : § 68 digit_count = (.data_size + (.byte_size-1))/.byte_size; 
: 21 65 INCR index FROM 0 TO .digit_count-1 D0 
: 5186 66 BEGIN = nie 
3; 2760 67 & IF (.byte_size NEQ 3) AND ((.index AND 7) EQL_0) AND (. index NEQ 0) 
: 2161 68 THEN text ower (text_index = .text_index-1)] = 
: 196 4 digit_v ves digit. tdata_buff)<. = Iiden® «by «byte size ‘byte. size,0>); 
3: 216 0 text ‘putt (text_ index = .text_index-1) digit_value; 
3 12¢ 4! END;~ 
3 | 7 If .digit_value GTRU ‘9° THEN text_buff((text_index = .text_index-1)] = ‘0’; 
3 2168 sre Poster tatttoraat_ MO. F1a9%. -text _index,text_buffl.text_index]); 
3 2169 276 «(1 END; ! End of routine "dbgSprint_ value. as_integer' 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
45 44 43 42 41 39 38 37 36 35 34 33 32 31 be 90133 P.ABB: .ASCII \0123456789ABCDEF\ 
20 00168 P.ABC: .ASCII \-\ 
2D 00164 P.ABD: .ASCII \-\ 
DIGIT= P.ABB 


~-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


OFFC 00000 ENTRY DEGSPRINT VALUE, AS_ IK INTEGER, Save R2,R3,R4.- ; 2147 
5E EBFC CE 9E 0000 MOVAB <5 348 Res P : 

5B 04 0000 CLRL RAD “OVERRIDE FLAG > 2165 

01 6c 91 00009 CMP (AP), "#1 : 2166 
0€ 18 0000C BLEQU i$ : 

SA 08 aC 00 0000 MOV B(AP), RADIX + 2169 

01 5A D1 0001 CMPL RADIX, #1 : 2170 
05 13 0001 BEQL =Sséd1S ; 

58 01 p00 00017 MOVL #1, RADIX_OVERRIDE_FLAG : 217% 

A 11 OO01A BRB 2$ > 216 

000000006 00 0 FB Oo1¢ 1$: CALLS #0, DBGSNGET_RADIX : 21? 
5A 0 p0 0 MOVL RO. RADIX ; 

57 1200 28F ¢ 026 2%: MOVZwWL #4608, TEXT_INDEX > 2179 

58 04 AC DdO 00028 MOVL VMS DESC, RB : 2181 
52 04 AS DO 0002F MOVL 4 (RB), DATA_ADDR ; 

58 DD 000 3 PUSHL > 2182 
EBAS (CF ss, CALLS DBGSDATA LENGTH ; 
9 g D A MOVL 4 Z : 
00001000 =F D D CMPL ATA size #4096 : 
05 15 00044 BLE : 

59 1099 F 3¢ 046 MOVZWL #4096, DATA_SIZE ; 3185 

20 07 «Ad 5 4B 3$: MOV ard) > 2187 
56 g 08 § 4f DIVL r6, ES ; 

00 4 6 2 23 MOVC DAA “BYTES, AB ATA “ADDR), #0, #516, - > 2188 
FOFC 36 CD 005A DATA~BUF : 


F3 FOFC CD 


000000006 99 


50 

FDFC CD41 

50 

FDFC CD40 

F3 50 
DA 51 


50 
56 FOFC CD 


000000006 99 


50 

FDFC CD41 

50 

FDFC CD40 

F3 50 
DA 51 
9 03 

O FFFFFFFF F 

5 5 
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DEBUG. SR 

R2 
DATASIZE, #7 

, #3, DATA_SIZE, RO 
a { 
ABIX 
$ 

4$ 
(RB) 
RO. rh} 
6 
RO. #25 
R § #34 
RADIX_OVERRIDE_FLAG, 8$ 


-1(R9), RO 
RO, DATA_BUFF, 7$ 
P.ABC 


RO 


FORMAT AD 

#3, DBGSPRINT 

195 " 

DATA_BUFFCMJ, RO 

RO, DATA_BUFFCMJ 

M,N 

14s 

DATA_BUFFCLNJ, DATA_BUFFLNJ 

DATALBYTES, N, 10$ 

DATA_BYTES, M, 9$ 

-1(R9), RO 

RO, DATA_BUFF, 19% 

P.ABD 

wi 

FORMAT AD 

#3, DBGSPRINT 

! 4 

DATA_BUFFCM], RO 

RO, DATA_BUFFCM) 

M,N 

14$ 

DATA_BUFFCN], DATA_BUFFCN) 

DATA_BYTES, N, 15$ 

DATA ies. Mm, 14$ 
t 


; DATA_SIZE, RO 
RO. #-1, RO 


ATA BUFF -1CDATA_BYTES] 
, at 
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; 2189 


2191 


2195 


197 
199 


16 
DBGVALUES 18-Sep-1 
Mbe~obo 1a-Sep-1 
FDFB CD46 0 BA 00140 
§ ¢ 90 00146 198: 
14 9014 
009¢ 31 00148 
D4 OO14E 208: 
D4 001 
50 9 DO 001 
9 11 001 
52 A 78 00187 218: 
1s FDFC CD40 9A 00188 
5 52 0 0016) 
52 : OA £7 00164 
FDFC CD40 168 
$5 DS 001 
08 13 001 
6 05 0017 
04 12 00174 
56 01 AO 9E 00176 
33 DA C4 OO17A 228: 
3 2 C2 00170 
D4 50 £4 00180 238: 
774E $1 30 81 00185 
gc 11 001 
02 A D1 OO18A 268: 
05 12 001 
53 01 DO 0018F 
12 11 00192 
08 SA D1 00194 258: 
05 12 00197 
53 3 0 00199 
B 11 0019¢ 
10 A D1 OO19E 268 
03 13 otal 
53 0% D0 OO1A3 
30 FF ASL 96 OO1AG 278: 
55 30 53 CP OOTAB 
50 1 Ce OO1Ar 
29 11 gore 
03 3 01 001B4 288: 
0 15 00187 
07 0 93 00189 
08 12 doec 
0 Ds 001B 
4 18 001C 
77% 96 001C 
52 5 C5 O01CE 298: 
51 EDF. OGD § EF OOTCA 
$4 00000000°EF4 101 
7746 4 90 00109 
D3 5 $ £2 001DD 308: 
9 & 91 001e1 
4 18 90164 
7766 3 90 901e6 
664? OF OOIEA 315: 
EE00 C7? -9F OO1ED 
GE CE OOIFT 
00000000" EF 9F O01F4 
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RO, DATA_BUFF-1C(DATA_BYTES) 
ATA.BYTES, DATA_SIZE 


1$ 
DATA_BYTES 
DIGIT VAL 
ATA_SIZE, D 
VAL, R2 
[DJ], DIGIT_VAL 
T’VAL, R2 
“B0FF Eb 
DATA_BYTES 
1R0) DATA_BYTES 
R2, DIGIT_VAL 
ig, DIGIT_VAL, TEXT_BUFFCSP) 
RADIX, #2 
w BYTE_SIZE 
RADIX, #8 
#3, BYTE_SIZE 
RADIK, #16 
7$ 
#4, BYTE SIZE 
-1(BYTE_SIZE)CDATA_SIZEJ, RO 
BYTE_SIZE, RO, DIGIT_COUNT 
#1, INDEX 
yTE_SIZE, a3 
NDEX, #7 
NDEX 


TEXT_BUFFCSP) 
SIZE 


3 

Las) 

~OoD 
—N 
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000000006 00 03 fe po tna cays #3, DBGSPRINT 


: 2276 
; Routine Size: 514 bytes, Routine Base: DBGSCODE + 1421 
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Use the FORTRAN ‘'G'’ format nque ine. which only prints the 
answer in exponential form 7 it has to. 

since fore is not FORSCVT_F_TG routine, convert the source 
o d_float. 


' 
i 
i 
i 
i 
CVTFD(. Local cdescCdsc$a. ointer), dvalue); 
IF NOT for$cVt_d_tg( dvalue, 

uffer_desc, 


° ! Significant digits 
0, ' Scale factor 
_& ; orgits wetore , Me tant point 
, © gupenens al form 
2) Dg ts after ‘E"' 


rae in exponential form 
$DBG_ERROR( *DBGVALUES\DBGSPRINT_VMS_VALUE"); 
!"The result is right-justified. Find the position where 


mits a 1 ee VMS _VALUE(vms_desc: REF dbg$stg_desc) : NOVALUE = 
17 8 BUILTIN ACTUALCOUNT a a Bry : 
17 80 BIND exp_zero = UPLIT BYTE('E+0000'5; ! Hack to fix FORSCVT bug 
1% 6 local_desc : dbg$stg_desc, 
17 buf fer_desc : dbg$stg_desc, 
178 84 status, 
179 85 text_buffer : ioe (64,BYTE), 
199 iy text_length : WORD; 
18¢ 88 ch$move(12,,vms_desc,local_desc); 
1 8Y buf fer_desctdsc$b ~¢ lass) “= dsc$k_class_s; 
184 90 buf fer_descldsc$b_dtype = dsc$k_ “dtype_t; 
185 91 buffer_descldsc$w_length] = 
136 4 buf fer_descl(dsc$a_pointer] = text _buf fer; 
iss 3 seceriee -vms_desc(dsc$b_dtype] OF 
IY 34] dscék dt ype. fc, dsc$k_dtype_dc,dsc$k_dtype_gc,dsc$k_dtype_hcJ: 
3132 98 local _desc(dsc$w_length] = .local ees Length]/2; 
19 99 Local-desc(dsc$b_dtype igh mos “desc(dsc$b_dtype] -2; 
194 00 local-desc(dsc$b_cla = dsc$k_cl ass. 
195 01 eperer int (FORAAT AD 1,UPLIT Briers} 
196 0 gsprint, vms_value(local_d 
197 0 abasprint TFORMAT_AD av *BStéc 
2198 0 local _desc(dsc$a “point > Fa ‘ cattaahe pointer] + .local_desc(dsc$w_length]; 
2199 0 ; dbg$print_vms satuntinesl 
$501 9 abgspr int TF ORRAT, AD,1 1°Geers Eotic: »")); 
ee 
220 0 Cdsc$k_dtype_f): 
$soe BEGIN 
2205 BUILTIN CVTFD; 
2206 LOCAL dvalyve : BLOCK(8,BYTE); 
son 2 LOCAL digits.spaces, Length; 
08 2 BUILTIN KPC,LOCC; 
209 § 
2 
2 
it 
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14-Sep- DEBUG. 
! the result begins (the first non-blank character in the 
: buffer) and print the result. 
SKPC(ZREF(' '), SREF(64),text_buffer; length, digits); 
LOCC(ZREF(* *), Length, digits; ,spaces); 
IF Hee tet tas 2 4 te ete BF He zero) THEN ete = .spaces-4; 
IF Cactualcount() GTR 1 ») 


AND actualparameter ( 
AND 3s gegicere 8,0> NEQ ‘-') 
THEN DBGSPRINT (Format_AD,1,UPLIT BYTE('+")); 
Sogner wan sreraet Ai. -spaces = .digits, .digits); 


Cdsc$k_dtype_dj: 
BECIN’. « 


LOCAL di tye -speces.tongehs 
BUILTIN SKPC,LOCC; 


! Use the FORTRAN ‘'G'’ format routine, which only prints the 
answer in exponential form if it has to. 


if NOT forScvt_d_tg(. local descLdsc$a_pointer], 


buffer_desc, 

16, ! Significant digits 

0, ! Scale factor 

1, ! Digits before decimal point 
! in exponential form 

2) } Digits after ‘'E"’ 


ven in exponential form 
$DBG_ERROR( *DBGVALUES\DBGSPRINT_VMS_VALUE'); 


! The result is right-justified. Find the peste ten where 
! the result begins (the first non-blank character in the 
buffer) and print the result. 


SKPC(ZREF(* *), ZREF (64), text_buffer; length,digits); 
LOCC(ZREF(* *), Length, digits; ,spaces); 
IF ch$eql(4,.spaces-4,4,exp_zero) THEN spaces = .spaces-4; 
IF (actualcount() GTR 1 AND actualparameter(2)) 
AND (. eraitene 8,0> NEQ ‘-") 
THEN DBGSPRINT(format_AD,1,UPLIT BYTE('+')); 
Sogtor tat storact /@. -spaces - .digits, .digits); 


Cdsc$k_dtype_g): 
BEGIN’ -8 


LOCAL di res -speces.Lengea: 
BUILTIN SKPC,LOCC; 


! Use the FORTRAN ‘'G'’ format routine, which only prints the 
answer in exponential form if it has to. 


if NOT for$cvt_g_tg(.local_desc(dsc$a_pointer), 
py! Fer desc, 
. ! Significant digits 


0, ' Scale factor d : 
1, ! Digits before decimal point 


RAN SESSLER 


oO 
“ 
me 


SSa VF 
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! in exponential form 
3) : Digits after ‘'E"’ 


! in exponential form 


THEN 

$DBG_ERROR( "DBGVALUES\DBGSPRINT_VMS_VALUE"); 

The result is right-justified. Find the position where 
the result begins (the first non-blank character in the 
buffer) and print the result. 


' 
i 
! 
SKPC(ZREF(* *), SREF (64), text_buffer; length, digits); 
LOCC(ZREF(* "), Length, digits; ,spaces); 
IF ch$eql(5,.spaces-5,5,ex zero) THEN spaces = ,spaces-5; 
IF (actualcount() GTR 1 AND actualparameter(2)) 
AND . Cdlgits< 8,0> NEQ ‘-') 
THEN DBGSPRINT(Format_AD,1,UPLIT BYTE('+")); 
dbgsprint(Format_AD, .spaces - .digits, .digits); 


Cdsc$k ftype_hJs 
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LOCAL di TEE pueces»tengens 
BUILTIN SKPC,LOCC; 


! Use the FORTRAN ‘'G'’ format routine, which only prints the 
: answer in exponential form if it has to. 


if NOT for$cvt_h_tg(.local_descCdsc$a_pointer], 


uffer_desc, 
ae ! Significant digits 
° ' Scale factor 
= ! Digits before decimal point 
! in exponential form 
4) Digits after ‘'E'’ 


THEN in exponential form 
$DBG_ERROR( 'DBGVALUES\DBGSPRINT_VMS_VALUE") ; 


The result is right-justified. Find the peststen where 
the result begins (the first non-blank character in the 
buffer) and print the result. 


1 
i 
1 
SKPC(ZREF(* *), ZREF (64), text_buffer; length, digits); 
LOCC(ZREF(* *), length, .digits; ,spaces); 
IF ch$eql(6,.spaces-6,6,exp_zero) THEN spaces = ,spaces-6; 
IF (actualcount() GTR 1 AND actualparameter(2)) 
AND 5s sO rgntale 8,0> NEQ ‘-") 
THEN DBGSPRINT(format_AD,1,UPLIT BYTE('+"')); 
foster tan Feract Je, spaces - .digits, digits); 


Cdsc$k dtype_td: 
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754 DEBUG. SR 
bytes; 
local _desc(dsc$w_length] = MIN(.local_descldsc$w_length],2048); 


Check for read access to the address. There are certain 

cases where we can get here with the address in the descriptor 
not readable. One example is EXAMINE/ASCID X, where X points 
to the geecctpter 


0000 
In this case the VMS descriptor came from a volatile value 
descriptor, and the address ‘'0'' in the descriptor was never 
checked for readability. 


bytes = .local_descldsc$w_lengt 
IF NOT PROBER(ZREF (0) ,bytes,.addr) 


SIGNAL (dbg$_noaccessr,1,.addr); 


dbg$Sprint(UPLIT BYTE(ZASCIC ‘'!AF’'*),. Local_descldsc$w_length] 
om: -local_desc dsc$a_pointer)); 


addr = .local wseseCasetarCengthdi 


COTHERWISE): 
BEGIN 


TES; 


1+ 

' Somewhat of a hack for FORTRAN - the FORTRAN compiler gives 
' us types BU, WU, LU for LOGICAL variables even though they 

! are really treated as signed integers. Change the dtype here 
so we print them right. 


if .dbg$gb_language EQL dbg$k_fortran 
IF ;,0098ab_Languag g$k_ 


dbg$cvt_dx_dx(local_desc,buffer_desc,text_length); 


IF -signed.dtypel . local desc(dsc$b_dtype]] AND 
(actualcount TR 1 AND actualparameter(2)) AND 
eens buf ferlo NEQ '=") AND (.text_buffer[0] NEQ ‘'+*) THEN 


ch$move(.text length, text_bufferl0],text_buffer(1)); 
text_buffer(0] = ‘+': 
sext_tength = .text_length ¢ V3 


Gogtor int (Format _AO,.text_Length.text buffer); 


! End of dbg$print_vms_value 
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y 1 Pl geese vit 038 
DEBUG. SRC JDBGVALUES .832;1 


AX-1 
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4-Sep- 


3$: 


4$: 


5$: 


6$: 


DEBUG. 
P.ABF 

wi 

R7 

#3, DBGSPRINT 
Lot 
P.ABG 
i 

R7 

#3, DBGSPRINT 
LOCAL_DESC, RO 


RO, LOCAL _bESC+4 
LOCAL_DESt 


i 
7$ 

RQ. #10 
@LOCALDESC+4, DVALUE 


DVB UB 


#7, =(SP) 

Bur FER DESC 

#6, FORSCVT_D_TG 
RO, 4$ 


e 
#164706 

a3 LIBSSIGNAL 

H é, #64, TEXT_BUFFER 
#32, ENGTH, (DIGITS) 
-4(SPACES), EXP_ZERO 
#4, SPACES 
AP), #1 


MOF OU-C 
cans 


=2=2—-2woOU—- @o— - Bu 
thn 


#16, =(S 


a 
#164706 


AX-11 Ot igsete V4,0-74 
SRC JDBGVALUES .832; 1 


AL Pest 
DBGSPRINT_VMS_VALUE 


1, DBGSPRINT_VMS_VALUE 
ABH 


Page 8) 


2301 


2302 
2303 


2363 
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Page 90 
. 20-74 (28) 
H 1 Gls AX-11 Bligs-32 v4 -B32;1 ) 
aSep-1986 3:17:86 — EdeauG. SacSbacvaLuEs.6 fe: : 
#3, LIBSSIGNAL : ; 
9 3 Se Soiie 7s: = SebeS #38, 464, a phen. : 2370 
0040 8F ‘ 00 ! 5 Loce | #52, LENGTH, (DIGITS E osm ; 
: : BO Sais CRPL “4 SPACES), EXP_ZERO é aa ; 
0161 C ” 08 12 001 3 SUBL2 #4. SPACES : 
52 ¢ SF Bal 8$: CMPB (AP), ‘9373 ; 
“ 7f te 00138 BLBC” CAP), 108 eed i 
- 08 At 3 O124 CHPs Co1Gits), #45 : 237% ; 
: a : ; 
eit i DD sit e PUSH #5, DBGSPRINT ; 2375 ; 
14 ; ITS § 
68 33 Dp B18 10$: att belts. SPACES, =(SP) srs 
§ ae BRW 27$ 3 ; 
ee et oe ee am | 
5 4 BNEQ Py | . 
18 ? 12 0035p H By : ‘ 
85 0b 0015 PUSHL i al py 
OF %D 00163 PUSHAB BUFFER DESC en 
AE OF Oo16 PUSH” LOCAL Dest ss eee 
7E 3 =AE OF 001 PUSHL LOCAL. $CVT GTC ; | : 
70 AE DD 00169 CALLS #6, FORSCVT_G_ ; 2395, 
000000006 00 98 EB 00178 PUSHAB P.ABM ; | ; 
: O1A8. C7 «SF 00176 PUSHL #i | 
BF DD oolre CALLS #3. LISSSIGNAL 2401 : 
anne 5, o.- ee O89 $:  Sebt> 38, hose SEAT BUFFER pie 
er 7 56 do18e OWL #35, LENGTH, (DIGITS) Pal : 
0040 BF $f BO por ee LOCe Be. LENGTH, ns 3 2603) : 
0 ST 00 00198 CHPCS #5. =S(SPACES), EXP_ZE iat : 
nt 3 29 3138 BNEQ. 1 ES 3 2404 | : 
ts SB tet i oa tee 
54 6C $1 HAY 138: a B . ‘on : 2605. : 
" 70 18 00145 BLBC  BCAP) 188 : 
6C 08 és 3 Bia CMPB ig4¢! . ; 2406 : 
2D e? i OIE PUSHAB P. ABN : 2410 ; 
6 C7? 9F 001B RB 178 : ; 
OIC 1 00184 RO, #28 ; 2418 ‘ 
0 91 186 148: CPB 6 : ; 
T ig soi ede : 
1 bb 0180 a ER Rite : 
1 9D OolBF PUSHAB BUFFER DESC 
7e he 9F Oole PUSH LOCAL BESCes 16 - | : 
75 OE rB i CALLS r8. FORSCVT_H. : 2627 ; 
0 1CF ABO 
000000006  9¢ oo 33 EF boibe PUSHAB P 


1 ~5e0-1984 96:43:96 AXx-11 Bh igsnse V4.0-74 Page 91 


14-Sep- DEBUG. SRC JDBGVALUES.B32; 1 | (28) 
00028362 br bb Bobs Pet 5166706 ; 
9 ; re IDE CALLS a3 LIBSSIGNAL : 

oc AE 0040 8F 2 1E1 15$ SKPC. 0s #30, #64, TEXT_BUFFER : 2633 
5 1 g 1€8 MOVL } $ 

65 0 9 A OO1EB LOCC #32, LENGTH, (DIGITS) + 26346 
4 : 1EF MOVL 1, 'R : 

0161 (7 FA AG ¢ Fe CMPC3 #6 -6(SPACES), EXP_ZERO + 2635 
1F BNEQ 16$ : 

i ge SF GUIEE vox, HBB {Ras SPatE® tase 
14 1 : ou (18S ° : 
10 08 ag 3 5 Btéc B(AP), 18$ : 

20 6 1 00 6 CMPB ss (DIGITS), #45 t 2437 

ores Co OF Onde peels ABP + 2638. 

St 5 Bosig 7s: BUSH i ee. 
68 3 FB 8 14 CALLS #3, DBGSPRINT : 

Dp 0217 18%:  PUSHL DIGITS + 2439 

7E 54 5 0219 SUBL DIGITS, SPACES, -(SP) : | 

OOAF i 021D BRW 27$ : 

OE 30 7} 8 pet ee Ros #14 ¢ 2642 

wn PO EB Rae Eu eee. Ser 

05 1B 00 BLEQU 208 : | 

50 0800 8F 3C 00 MOVZWL #2048, RO ; | 

ee a a eam cae ue 

50 58 OA 3c 0230 MOVZWL LOCAL DESC, BYTES : 36 | 

61 50 0 ¢ 0241 PROBER #0, BYTES, (ADDR) > 2664 | 

op oS § re BUSHEL ong : 2666. 

00028228 SF it 8 tp PUSHE #164392 ; | 

03 FB 00 3} CALLS #3, LIBSSIGNAL : | 

re BE AE RP SSSES 21H: asi Eat BEE on 388 

O1E6 cP F 00 35 PUSHAB P.ABO” : 
0 11 0025F BRB 28S ; 

01 000000006 90 1 0 61 228: CPB DBGSGB_LANGUAGE, #1 ; 2681 

02 SA AE of 6 6A CMPB AL_DESC*2, #2 + 2683. 
06 3 of BNEQ : 

SA oat 6 MOVB #6, LOCAL_DESC+2 : 2684. 

16 11 00274 BRB : | 

03 SA AE 91 00276 238: CMPB OCAL_DESC+2, #3 > 2485. 

: 1 7A BNEQ 4$ : | 

SA AE H 7 7 Dose a7 LOCAL _DESC+2 ; 2486 

04 SA AE 91 248: CAPS gestern 3 2687 

SA AE os 96 MOVB #8, LOCAL_DESC+2 > 2488. 

E pp C 25$:  PUSHL SP + 2490 
50 AE OF PUSHAB BUFFER_DESC ; 
60 AE OF PUSHAB LOCAL_DESC : 


sae 


; Routine Size: 


21 


OD AE 


725 bytes. 


000000006 98 


5A 
00000000° Ff 
1 
18 8 
20 C 
28 oc 
Oc AE 
OC AE 
C 
7% 0 
68 


03 «=FB 

A OA Beep 
96 5 A7 
HE 1p Gosh 
‘g i 8 

1 1 BS 
AE 9 B6 
OF 28 1 
sot 

Hf f 
ag C 002CB 
5 DD OO2CF 
as FB Gos} 


Routine Base: DBGSCODE + 1623 


t 


1 
Sep- 
Sep- 


19be 93:77:82 


AX-11 Bliss-32 V4.0-74 
Bliss $$ 


DEBUG. SRC JDBGVALUES.B 

CALLS pacscvT * ab” 
MOVZBL at DESC 
BBC STGNED Stee, 26$ 

CMPB 
BLEQU $65 
BLBC (AP), 26$ 

CMPB text_GuFFeR, #45 

BEQL 268 

CMPB 4=—sTEXT_BUFFER, #43 
BEQL 268 ~ 
MOVC3 ‘TEXT LENGTH. TEXT LBUFFER, TEXT_BUFFER?1 
MOVE #43, TEXT BUFFER 

INCW = TEXT -LEN NGTH 

PUSHAB TEXT"BUFFER 

OVZWL TEXT “LENGTH, =(SP) 

PUSHL R 

CALLS #3, DBGSPRINT 


1 
Vbe~008 1e-3ep-198e 93:77:82 — EOEBUG. SacSbecvaLues.039; 1 Pege (233 
Hen $808 0 ELUDoR 


-EXTRN LIBSSIGNAL 


| ; 
E PSECT SUMMARY : 
E Name Bytes Attributes : 
3 DBGSOWN 6 NOVEC, WRT, RD eg NOSHR, LCL, REL, CON, Gg ptt : 
|; DBGSPLIT 496 NOVEC, *NOWRT, RD; EXE, SH HR, LCL, REL, CON, PIC,ALIGN(O) : 
; DBGSCODE 6392 NOVEC ;NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(O) : 
; Library Statistics : 
: ee eeon as Symbols eres en ee Pages Processing : 
; File Total Loaded Percent Mapped Time 3 
; $255$DUA28:(SYSLIBILIB.L32;1 18619 55 0 1000 00:01.9 : 
|} 7838Ssoua 8: (DEBUG. 08415 TRUCDEF 32:1 3 0 0 7 00:00.1 
(} 7$255$pua28: (DEBUG. OBJ L3 154 191 12 97 00:01.9 : 
3 =$255$DUA28: (DEBUG. 0B DeTRECRDS. (32;1 $ 
5 4 15 3 31 00:00.3 3 
; _$255S$DUA28: (DEBUG.08/ JDBGMSG.L32;1 386 10 2 22 00:00.3 3 
; COMMAND QUALIFIERS : 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:DBGVALUES/OBJ=OBJ$:DBGVALUES MSRC$:DBGVALUES/UPDATE=(ENH$:DBGVALUES) : 
3 Size: 7 code + 502 data bytes : 
; Run Time: 1:43.8 3 
; Elapsed Time 1:53. : 
; Lines/CPU Min: 144 : 
; ‘ee A Re 1809 3 
| 3 Memo Y Used: 478 pages : 
|; Compilation Complete : 
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